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KEMPSTON MICRO ELECTRONICS 

ZX KLIK - KEYBOARD 

IF YOU AR E like many ZX81 users and are fed up with the ^ 

dead 'touch sensitive' key pad then consider the advan¬ 
tages of the new KEMPSTON KLIK-KEYBOARD. This is 
a genuine push button keyboard which has been 
designed as an exact replacement, being no larger than 
the existing key pad, but offering all the advantages of a 
full size keyboard. Consider these facts: 

• Fits onto the ZX81. 

•No soldering needed on the assembled version 
(just plug in) 

•No trailing wires. 

•No special case required. 

•Positive feedback from keys. 

•Full two colour legends supplied. 

•Full back-up service offered, including fitting. 

This is a genuine 40-key, push button keyboard which fits 
into the recess formed after peeling off the existing touch 
sensitive keypad. 

41 key version available at £26.50 
New ZX-81 Auto Repeat module (like the Spectrum) 

£6.95. 

ZX SPECTRUM HARDWARE 


Price Breakthrough! 

Spectrum Joystick complete with its own purpose built interface which simply plugs into the back 
of the Spectrum for only £19.50inc. VAT. 

Supplied with sample software and a full set of instructions for use in your own basic programs. 
At last you can play true arcade type games without fumbling for keys. 


We are proud to announce that we have developed 
for the ZX SPECTRUM a new24 line programmable 
peripheral Interface using MOS technology with 
the following features: — 

• 3x8bitports 

• Port mapped, using IN and OUT commands 

• I/O via 16 pin DIL sockets 

• I /0 also via 28 way edge connector 
•Can be used in BASIC or Machine Code 

The port is available fully built with a detailed set of 
instructions and control applications. The port can 
either be used with out motherboard, thus allowing 
a further card to be used, or with a stackable 
connector. Either way, it means that Micro-Drives, 

Printers, etc., can still be used with the port. 

Please note that this is DEFINITELY NOT a ZX81 
MODIFICATION but an exclusive design for the 
new ZX Spectrum. 

ZX Spectrum PPI port.£16.50 

ZX 2 slot Motherboard.£16.95 

ZX Stackable connector.£ 5.50 

All prices inclusive of VAT, but postage must be added at 70 pence for a 

single item, 100 pence for 2 or more items. Available by mail order only. 
Cheques, P.O's made payable to: 

KEMPSTON (Micro) Electronics 

180A Bedford Rd. Kempston, Bedford MK428BL Tel.0234 852997 













Editor 

Nigel Clark 


Production editor 

Harold Mayes MBE 
Design 
Elaine Bishop 
Program Reviews 
Sid Smith 


7 PIE CHART 
CHARACTER 
MAKER 

8 STAREATER 
ERRORSAND 
MISHAPS 

9 TIDDLYWINK 


Editorial director 

IohnSterlicchi 

Advertisement director 

Simon Morgan 

Advertisement manager 

John Ross 

Sales executive 

Annette Burrows 

Editorial/production assistant 

Margaret Hawkins 



Managing director 

Terry Cartwright 

Chairman 

Richard Hease 

Sinclair Progams is published 
monthly by ECC Publications Ltd. It 
is not in any way connected with 
Sinclair Research Ltd. 

Telephone 

All departments 

01-3597481 

If you would like to contribute to any of 
the Sinclair User group of publications 
please send programs, articles or ideas 
for hardware projects to: 

Sinclair User and Programs 
ECC Publications 
30-31 Islington Green. 

LondonNl 8BJ 


10 PLANETS 

13 GOLF 

14 MAKING WAVES 

15 QUEUE 


IK DEFENCE 
16 QUICK TAPE 



Programs should be on cassette and 
articles should be typed. We cannot 
undertake to return them unless a 
stamped-addressed envelope is 
included. 

We pay £10 for each program published 
and £50 per 1.000 words for each 
article used. 

© Copyright 1983 
Sinclair Programs 
ISSN No. 0263-0265 
Printed and typeset by 
Bournehall Press Ltd. 

Welwyn Garden City. 

Herts. 

Distributed by 

Spotlight Magazine Distibution Ltd. 

1 Benwell Road 
Holloway. 

London N7 

01-607 6411 _ 


17 DROPFOUR 

18 SEWER RAT 

19 TIMED INPUT 


MINCE POUNCE 



20 FROGGER 
22 SCROLL 
2315 PUZZLE 

24 KALEIDOSCOPE 
HEXLOADER 

25 BOWLING 

26 KINGDOM 



30 RHINO 

31 FACTORS 
BLACK HOLES 

32 UTILITY DRAW 

33 TOAD IN THE HOLE 

35 DEATH RUN 

36 MINI BANK RAID 

37 SPEARMAN’S 
RANK 

38 SPACMANII 

40 STREAMERS 
INDEXER 

41 HIGHER LOWER 

42 MONSTER MATHS 

43 SIMPLE SIMON 
JUDGMENT 

44 RABBIT RUN 

45 3D NOUGHTS AND 
CROSSES 

47 BOMBING MISSION 


SINCLAIR PROGRAMS /anuary/Febmary 1983 




MORE IDEAS THA 
MORE PROGRAMS THA 
LESS MONEY THA 



PROGRAMS FOR EDUCATION, HOME, BUSINESS, AND GAMES - FOR 
SINCLAIR, BBC, RESEARCH MACHINES, APPLE, COMMODORE, 
ACT SIRIUS, TRS-80, IBM, ICL, and more each month. • • 


HOW THE MICRONET 800 SERVICE WORKS . 


Most micros connect by o 
standard DIN plug and 
coaxial cable to an adaptor. 
They're portable, so you can 
use the system wherever you 
put your computer and 
telephone.r- 




PRESTEL 


Simply dial Micronet's number 
ana enter your subscriber 
number into the keyboard. A 
'welcome to Micronef 
message appears on the 
screen. 

You're on-line to one of the 
world's largest databases. 


MICRONET 800 s 

thousandsof ideas—packed 
pages - games, education, 
business software, club news 
and information. 


When you have all the information 
you need - or you've finished 
downloading' software to your 
computer's memory - just switch 
off tne telephone link at your 
keyboard and replace the receiver. 


















N A THINK-TANK. 

NA SOFTWARE HOUSE. 
N YOU'D EXPECT. 


Whether you bought your computer for 
games, business, or education, you can spend a 
lot of time wondering what to do with it. And then 
spend a lot of money on packaged games and 
applications software. 

NOW you can bring your computer to life - 
economically - by joining the amazing new 
MICRONET 800 service: a vast database with 
hundreds of FREE games, plus business and 
education software, computer news, special offers 
and 'big prize' opportunities for you to compete 
against the system - and win! 

MICRON ET 800 is packed with ideas and 
information. And there's no waiting - you get 
programs straight down the phone line! Updates on 
operating systems... school and college programs 


... gobble man... invaders.. , business 
packages. They're constantly renewed. 

And hundreds of them are free: you simply turn 
on your micro, dial up MICRONET 800 and 
LOAD. 

Sounds expensive? Here's the surprise! 

All you pay for is a low-cost adaptor (in most 
cases just £49) to link your computer to your 
telephone, plus a MICRONET 800 subscription of 
about £1 per week. Then, via your computer and 
telephone line you will be able to access over 
30,000 ideas-packed 'pages' of the MICRONET 
800 service, and call down the software you want 
to your own computer! Look at just a FEW of the 
services already available on Micronet for you to 
call on: 


• Free Teiosoflwore Indexed by subject and by 
name of micro, o huge selection con be looded 
down onto your computer. 

• Educationol Exchange Library: Schools and 
colleges are already preparing to display programs 
written by students and teachers, so many con 
benefit from them easily and economically. 

• Aoplicurions Guides Quick-reference guide by 
subject and by micro name shows you available 
applications software. You can move from the guide 
to further details held on the system if you wish. 

• Demonstrations Check through the features of 
the software pockoges thof interest you - privately 
and without obligation. Order only if you're sure it's 
what you need. 

• Purchase 'Downloodoble' Software: Mony 
'telesoftware’ programs con be bought from the 
system and loaded down direct to your micro. But 


don't worry - there's plenty of warning if ony 
MICRONET service you're planning to use carries o 
charge. 

• Electronic Mail A mailbox service on Prestel 
allows you to exchange messages with other Prestel 
or Micronet users. Messages are held securely and 
only you con collect them. 

• Bulletin Board For an additional subscription you 
con operate your own bulletin board - club news, 
for example, like tips, swap-shop for second-hond 
items and so on. 

• Pho.-.e-In: If you're awoy from your computer but 
need to send o messoge to another Micronet user - 
call the Micronet 800 service by phone and we'll 
send the message for you. 

• Presto; Over 200,000 poges of information on 
British Telecom's established service. Facts ond 
advice on finance, business, entertainment, features 


ond even direct bookings for travel, holidays, etc. 

• Product ond Service Guide: A constantly 
updated reference source - covering product 
comparisons, software reviews, dealership ond price 
details ond oil the 'best buy' information. 

• Action Advertising: Includes features, just like a 
magazine, including jobs ond classified ads. If 
you've read an article that interests you, through 
MICRONET you can find out about the 
manufacturer, the dealers, the prices, and even 
order the product via your micro! 

• User Group News. The Amateur Computer Club 
ond many others like ALCC, BASUG, ICPUG, TUG, 
TRS 80 UG, will maintain their news and reference 
service on Micronet. 

• Big Pnze Gomes Micronet offers a range of 
gomes and quizzes to keep you entertained ond 
involved - ond there'll be big prizes tool 


SOUNDS FANTASTIC? THAT'S JUST THE START! 


MICRONET 800 is a completely new service 
and we'll be adding to it all the time. Find out 
more about what Micronet 800 has in store for 


you: return thiscoupon TODAY and we'll send you 
a FREE FACTS FOLDER on Micronet 800services 
and details of how you can join! 

Send to: MICRONET 800, Petersham House, 57a Hatton Garden ^ 
London EC IB IDT. 



□ Yes, I am interested in the MICRONET 800 service. Please keep me 
in touch with developments and send me details of the low-cost 
Micronet 800 adaptor. 


micronet; 

X M > W 300 

IT BRINGS YOUR 
COMPUTER TO LIFCI 


□ I am interested in earning money on software I develop for the system. 
I am interested in: Home uses ED Business uses (~| Educational uses l~1 
Name_ 


















computeis 


' battles Superb graphics. Save game lean 
tupplied together on cassette, boxed v 


CARNELL SOFTWARE. DEPT 2. 4 STAUNTON RD, SLOUGH. SL2 I NT 

use send me: Black Crystal (or my. 


AOORESS 


PROPRIETORS: R CARNELL, S. GALLOWAY 


ZX81 Spectrum 

MANAGEMENT GAMES 


AIRLINE - £5 

Can you compete with British Airways? You 
must decide on the number of aircraft to operate, 
whether to buy or charter, and the levels of 
staffing and maintenance. Problems encoun¬ 
tered are tax demands, strikes, cancelled flights, 
hijacks and aircraft crashes. 

AUTOCHEF - £5 

As MD of a Catering Company you must nego¬ 
tiate for leases, decide on menu prices, level of 
wages, advertising and dividends. Each year you 
must predict the inflation rate. You will be made 
to resign if you are not successful. There are 3 
levels of difficulty. 

PRINT SHOP - £5 

You own a small printing company and are 
required to decide on la) the number and type of 
staff you employ and when to increase or reduce 
staff lb) the amount and type of paper you stock 
<c) the week in which work is scheduled Id) the 
quotation for each. There are 3 scales of dif- 


A game of oil exploration and exploitation m Texas 
Decisions are required on purchasing concessions, 
the movement and use of drilling rigs, and the build- 
mg of platforms and pipelinns Can you take-over the 
Ewing Empire, or will you be taken-over 
£5 for one. £8.50 for any two, £ 12 for three or £ 15.50 for the four. 

ALL PROGRAMS INCLUDE DETAILED INSTRUCTIONS AND NEED AT LEAST 
16K 

PLEASE STATE COMPUTERTYPEANOSENOCHEQUETO: 

DEPT SP 

4? CASES COMPUTER SIMULATIONS 
■ ^ 14 Langton Way 

LondonSE3 7TL 


DALLAS —£5 


JRS 16KRAM PACK 
ONLY 

^ £26.50! 

xe ■ Inc. free ALIEN 

ATTACK. Proven 
I reliability at a budget 
price, as reviewed by 

■ Your Computer. 


JRS 64K RAM PACK ONLY £62.95! 

Identical to the 16K above but offering a massive 64K of RAM 
You could win one in our competition. 

WIN £250 PLUS A 14 COLOUR T.V. 
IN THE SUPER JRS ZX SOFTWARE 
COMPETITION. 

Second prize of £ 150, three third prizes of 64K RAM 
Packs. 

Plus a substantial cash payment for the distribution 
rights to your program by JRS (even if you don't win a 
prize, JRS may still offer to buy your program, providing it 
meets with the high standard required). 

All programs submitted must be accompanied by an 
official entry form available from JRS Software. 

Send a large stamped addressed envelope for your entry 
form and your FREE copy of the 1983 JRS Catalogue. 


SPECTRUM 48K: 180K OF PROGRAM 
IN SIX PARTS - ONLY £7.50 
ZX81 16K: OVER 100K OF PROGRAM 
IN SEVEN PARTS - ONLY £7.50 
WHY PAY MORE FOR LESS OF AN 
ADVENTURE 
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C haracter maker changes 

the character set of the IK ZX- 
81. It will even change the 
letters in program listings into 
blocks of strange patterns. 

The main program is a machine 
code routine set up using the POKE 
command. After running the main 
routine remove it line by line but do 
not use NEW. 

When the program is in memory, 
type-in one of the demonstration 
programs. They will show contin¬ 
uous patterns on the screen. You can 
also make your own programs which 
create patterns on the screen which 
change at random. 

The program was sent by Allisler 
London, of Sleaford, Lines. 


IQ LET R-RND *255 
20 PRINT CHR$ ft; 
3© GOTO 10 



-7 





A 1 


i < 

s 


C 

■ 


P IE CHART will provide you with pieces. When you have finished, y co-ordinate will move you to 

a means of displaying your per- INPUT “-1” and the program will the next stage of the routine, 

centages in a really pro- move to labelling the different which enables you to title your 

fessional way. A circle is shown on slices. A grid is drawn around the display. 


screen; you are asked to input your screen and you enter your label This useful program was submit- 
percentages and the computer will and then its x and then its y co- ted by Paul Smith of North Harrow 
slice the pie into appropriately-sized ordinates. An entry of 32 for the for the 16K Spectrum. 


PHELCHMSr 
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T HE IDEA of Star Eater, a game 
for the unexpanded ZX-81. is to 
land your ‘Y’ ship on one of the 
stars shown on the screen and stay 
there for as long as possible. 

Another ship, represented by ‘M\ 
will chase you and make your job of 
staying on the stars for any length of 
time an impossibility. If you are 
moving from star to star the ship will 
just bounce off you but if you have 
landed on a star it will destroy you. 
When the game is completed the 
computer will indicate your score. 

To control your ship you must use 
the cursor keys. As the game con¬ 
tinues it will become more difficult. 

It is from Adrian Mansell of 
Birmingham. 



2 

RflND RND 


3 

PAUSE 100 


10 

LET 

A-INT <RND#10)*2 


11 

LET 

S-0 


12 

LET 

DD-2 


20 

LET 

D-INT <RND*15)#2 


30 

LET 

C-CODE "GRAPHIC 7" 


40 

LET 

B-INT < RND#15)#2 


50 

LET 

E-CODE "?" 


60 

LET 

F-CODE "GRAPHIC 5" 


70 

LET 

G-INT <RND#10)*2 


00 

LET 

H-INT <RND#30> 


90 

LET 

I-VAL "10" 


100 

LET 

J-VRL "10" 


120 

IF INKEY*-"6" THEN LET 

I-I + 

DD 



130 

IF INKEY*-"7" THEN LET 

I«I- 

DD 



131 

IF INKEY*-"5" THEN LET 

t 

B 

“J 

DD 




132 

IF INKEY*-"0" THEN LET 

J-J+ 

133~IF S>-30 THEN LET DD-1 


140 

IF I 

-A AND J-B OR I-C AND J 

»D OR I«E 
a 

AND J-F THEN LET S-S+l 

150 

IF I«G AND J-H THEN GOTO 10 

00 




160 

LET 

G-G-l 


170 

LET 

H-H-l 


180 

IF I>G THEN LET G-G+2 


190 

IF J>H THEN LET H-H+2 


200 

CLS 



201 

PRINT AT A, Bj ; AT C,D;"#" 

;RT E 

ii 

pFj " 

*".sAT G,Hj"M";RT I , 

Jj "Y 

210 

GOTO 

110 


1100 

PRINT AT I,Jj S 




Emma® 

MISHAPS 


STICKS AND STONES—The first line should read 
1 LET G = 0. 

SPACMAN—The entering of the graphics characters 
needs some explanation. In lines 1060 to 1063 the charac¬ 
ters should be entered as u, r. d, and i respectively, all in 
graphics mode, and in lines 2010, 3120, 7010 and 7050 
graphics a should be entered. 

CITY BOMBER—line 101 should read IF s = l THEN 
LET m = j + 2—(j = 20). 

RENUMBER—The program for the ZX-81 is for the 



machine with the 16K RAM pack. 

ZAG BLASTER—Entering the graphics may have 
caused some confusion. That can be overcome by instead 
of entering the graphics characters direct, enter letters as 
follows: 190 and 400—em graphics mode: 230, 470 and 
5010—graphics f: 260—graphics g. 

STAR BATTLE—Unfortunately we omitted a large 
section of the listing. We have been trying to find the 
missing lines, without success as yet, but we hope to have 
the information for our next edition. 
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T iddly winks is a flipping 

game where a knowledge of 
aerodynamics will gel you no¬ 
where. The object is to wink your 
tiddles into the container in the 
middle of the screen. Translated 
loosely, that means you must flip 
your play counters into the dish. The 
counters are numbered from one to 
three and you take your turn by 
entering the counter number and 
then entering the amount of flip 
force. 

The wink will move with accord¬ 
ing velocity and if you have judged 
distance and velocity correctly your 
counter should fall into the con¬ 
tainer. The computer counts how 
many attempts you have taken until 
all the counters are in the pot. 

The program was written by Tim 
Grubb of Leicestershire and is for 
the IK ZX- 81 . 


20-PRINT RT 12, fi;"9r*Phic 8,2 
a-Paces, 9r*Phic 3" 

30 PRINT RT 13, R;"4 9r*Phics 7 

33 FOR N-SGN PI TO X 

40 LET B<N>INT <RND*PI*PI> 

43 PRINT RT 12,B<N>,CHR* <156+ 
N > 

45 NEXT N 

50 PRINT RT 0,0;"WHICH TIDDLY? 

35 INPUT I 

36 IF I>3 THEN GOTO 30 

60 PRINT RT 1,0;"POWER? <1 TO 
13 V’ 

65 INPUT U 

67 FOR P-SGN PI TO U 

70 PRINT RT 11, B< I >+SGN PI;»ir> 
vers# sPa.c#" 

80 LET B< I >B< I >+l 

90 NEXT P 

100 PRINT RT 12,B< n+l;CHR* <15 
110-IF B<I>*13 OR B<I>-12 THEN 
PRINT RT 21,0;"WHRT R WINK" 

120 IF B<I>-12 OR B< I )*13 THEN 
LET X-X-l 

125 LET M-M+SGN PI 
130 IF X*0 THEN PRINT RT 12,3;," 
FINISHED IN ",M;JJ | ' 

135 PRUSE 60 
140 GOTO 4 










1 REM "PLANETS" 

2 GOTO 1000 

3 PRINT AT 20,20;"9TH PLANET" 

4 PRINT AT 10,10;"*<- 

-SUN" 

5 PRINT AT 0,23;"PLUTO" 

7 PRINT AT 2,23;"DISTANCE” 

0 PRINT AT 3,23;"3670 MILL" 

9 PRINT AT 4,23;"ORBIT" 

10 PRINT AT 3,23;"248.4YRS" 

11 FOR T-0 TO 30 

12 LET A<=T/15*PI 

13 LET SX-21+21*SIN A 

14 LET SY-22+21KC0S A 

15 PLOT SX,SV 

16 NEXT T 

17 PAUSE 250 

18 CLS 

19 GOTO 2000 

20 STOP 

21 PRINT AT 10,10;"*<- 

-SUN" 

22-PRINT AT 1,23;"PLUTO" 

24 PRINT AT 3,23;"DISTANCE" 

25 PRINT AT 4,23;"2794 MILL" 

26 PRINT AT 5,23;"ORBIT" 

27 PRINT AT 6,23;"164,8YRS" 

28 PRINT AT 20,20;"8TH PLANET" 
40 FOR T-0 TO 30 

50 LET A-T/13TPI 
60 LET SX»21+18*SIN A 
70 LET SY-22+18*C0S A 
73 PLOT SX,SY 

76 NEXT T 

77 PAUSE 230 

78 CLS 

79 GOTO 2500 

80 PRINT AT 10,10;"*<- 

-SUN" 

81 PRINT AT 0,23;"URANUS" 

83 PRINT AT 2,23;"DISTANCE" 

84 PRINT AT 3,23;"1783 MILL" 

85 PRINT AT 4,23;"ORBIT" 

86 PRINT AT 3,23;"84.02 YRS" 
87-PRINT AT 20,20;"7TH PLANET" 

98 FOR T-0 TO 30 

99 LET A-T/15*PI 

100 LET SX-21+13#SIN A 

110 LET SY-22+13CC0S A 

120 PLOT SX,SY 

123 NEXT T 

130 PAUSE 250 

140 CLS 

130 GOTO 3000 

379 PRINT AT 20,20;"3RD PLANET" 


380 PRINT AT 10,10;"*<- 

-SUN" 

381 PRINT AT 0,23;"EARTH" 

383 PRINT AT 2,23;"DISTANCE" 

389 PRINT AT 3,23;"93 MILL" 

390 PRINT AT 4,23;"ORBIT" 

391 PRINT AT 3,23;"1 YEAR" 

392 FOR T-0 TO 30 

393 LET A-T/13*PI 

394 LET SX=21+7*SIN A 
393 LET SY-22+7*C0S A 
395-LET SY»22+7*C0S A 

396 PLOT SX,SY 

397 NEXT T 
390 PAUSE 230 

399 CLS 

400 GOTO 5300 

500 PRINT AT 10,10;"*<- 

-SUN" 

510 PRINT AT 0,23;"SATURN" 

530 PRINT AT 2,23;"DISTANCE" 

340 PRINT AT 3,23;"866 MILL" 

550 PRINT AT 4,23;"ORBIT" 

560 PRINT AT 3,23;"29.46 YRS" 

563 PRINT AT 20,20;"6TH PLANET" 

600 FOR T-0 TO 30 

610 LET A-T/'l5*PI 

620 LET SX-21+13*SIN A 

630 LET SY-22+13*C0S A 

640 PLOT SX,SY 

641 NEXT T 

642 PAUSE 250 

643 CLS 
644-G0T0 3500 

650 PRINT AT 10,10;"#<- 

-SUN" 

631 PRINT AT 0,23;"JUPITER" 

653 PRINT AT 2,23;"DISTANCE" 

634 PRINT AT 3,23;"483 MILL" 

633 PRINT AT 4,23;"ORBIT" 

636 PRINT AT 3,23;"11.86 YRS" 
657 PRINT AT 20,20;"5TH PLANET" 
700 FOR T-0 TO 30 

710 LET A-T/13*PI 
720 LET SX-21+10*SIN A 
730 LET SY-22+10*COS A 
735 PLOT SX,SY 
740 NEXT T 
743 PAUSE 250 

746 CLS 

747 GOTO 4000 

730 PRINT AT 10,10;"*<-:- 

-SUN" 

731 PRINT AT 0,23;"MARS" 

733 PRINT AT 2,23;"DISTANCE" 
754-PRINT AT 3,23;"141 MILL" 


733 PRINT AT 4,23;"ORBIT" 

736 PRINT AT 3,23;"1.88 YRS" 

737 PRINT AT 20,20;"4TH PLANET" 
760 FOR T-0 TO 60 

770 LET A-T/30*PI 
780 LET SX-21+8*SIN A 
790 LET SY-22+8KC0S A 
800 PLOT SX,SY 
810 NEXT T 
815 PAUSE 230 
820 CLS 

830 GOTO 5000 

849 PRINT AT 20,20;"2ND PLANET" 

850 PRINT AT 10,10;"*<- 

-SUN" 

831 PRINT AT 0,23;"VENUS" 

833 PRINT AT 2,23;"DISTANCE" 

834 PRINT AT 3,23;"67.2 MILL" 

835 PRINT AT 4,23;"ORBIT" 

856 PRINT AT 3,23;"223 DAYS" 

857 FOR T=0 TO 30 
858-LET A-T/15*PI 

859 LET SX-21+4*SIN A 

860 LET SY-22+4*C0S A 

861 PLOT SX,SY 

862 NEXT T 

863 PAUSE 250 

864 CLS 

865 GOTO 7000 

900 PRINT AT 10,10;"*<- 

-SUN" 

905 PRINT AT 0,23;"MERCURY" 

907 PRINT AT 2,23;"DISTANCE" 

908 PRINT AT 3,23;"36 MILL" 

909 PRINT AT 4,23;"ORBIT" 

918 PRINT AT 5,23;"88 DAYS" 

913 PRINT AT 20,20;"1ST PLANET" 
920 FOP T-0 TO 30 

925 LET A-T/1S*PI 

930 LET SX-21+2*SIN A 

940 LET SY-22+2*C0S A 

950 PLOT SX,SY 

933 NEXT T 

960 PAUSE 250 

970 CLS 

980 GOTO 8000 

999 STOP 

1000 PRINT "THE PLANETARY SYSTEM 
1020 PRINT 

1030 PRINT "THIS COMPUTER PPOGRA 
MME GIVES" 

1040 PRINT "DETAILS OF THE SOLAR 
SYSTEM" 

1050 PRINT "AND INCLUDES AN ANIM 
ATED" 


10 
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D ESPITE its title. Planets is not 
an invaders game. It is an 
educational routine which pro¬ 
vides the user with a semi-educa- 
tional description of each planet, 
followed by an animated graphic 
presentation of each planetary orbit. 

We are sure that it will prove use¬ 
ful to science students and teachers. 
It was sent by K F Williams of New 
South Wales, Australia ( 16 K ZX- 81 ). 




XNETS 


1060 PRINT "REPRESENTATION OF TH 
E PLANETARY" 

1070 PRINT "ORBITS OF OUR SOLRR 
SYSTEM.“ 

1073 PRINT 

1100 PRINT "PRESS ""NEWLINE KEY" 
" TO STRRT" 

1110 PRINT "YOUR JOURNEY THROUGH 
TIME RND" 

1120 PRINT "S P R C E." 

1121 PRINT 

1122 PRINT 

1123 PRINT """PLUTO.NEPTUNE" 

.IJRRNUS. 

1123 PRINT 

1126 PRINT """SRTURN.JUPITER 

"" ""MARS. 

1128 PRINT 

1129 PRINT """EARTH.VENUS"" 

""MERCURY""" 

1132 INPUT A* 

1133 CLS 

1140 IF A*-"" THEN GOTO 1200 
1200 PRINT "PLUTO" 

1220 PRINT "THE NINTH PLANET OF 
THE SOLRR" 

1230 PRINT "SYSTEM,ORBITING THE 
SUN RT fl" 

1240 PRINT "MEAN DISTANCE OF 39. 
33AIJ IN" 

1230 PRINT "248.4 YEARS.PLUTO WA 
S DISCOVERED" 

1260 PRINT "IN 1930 FOLLOWING OB 
SERVATIONS" 

1270 PRINT "OF PERTURBATIONS IN 
NEPTUNES" 

1280 PRINT "ORBIT.PLUTOS MASS IS 
PROBABLY" 

1290 PRINT "LESS THAN 0.1 OF THR 
T OF EARTH." 

1293 PRINT "DIAMETER IS PROBABLY 
3000 TO" 

1296 PRINT "6000 KILOMETRES RND 
THE ORBIT IS" 

1297 PRINT "VERY ECCENTRIC" 

1298 PRINT 

1299 PRINT 

1300 PRINT "PRESS ""NEWLINE TO S 
EE ORBIT" 

1302 INPUT A* 

1303 CLS 

1304 IF A*-"" THEN GOTO 3 
2000 PRINT "NEPTUNE" 

2011 PRINT 

2012 PRINT 


2013 PRINT "THE FOURTH LARGEST P 
LANET AND" 

2014 PRINT "THE EIGHTH PLANET FR 
OM THE SUN." 

2013 PRINT "NEPTUNE WAS FIRST DI 
SCOVERED IN" 

2016 PRINT "1846 BASED ON PERTUR 
BflTIONS IN" 

2017 PPINT "THE ORBIT OF URANUS. 
NEPTUNE HAS TWO MOONS,""TRITON"" 

AND ""NEREID""" 

2018 PRINT "NEPTUNES ""YEAR""IS 
164.8 TIMES" 

2019 PRINT "THAT OF EARTH.ITS DI 
AMETER IS" 

2020 PRINT "ABOUT 31 M/M AND ITS 
MASS ABOUT" 

2021 PRINT "17.43 TIMES THAT OF 
THE EARTH" 

2022~PRINT 

2023 PRINT 

2024 PRINT "PRESS ""NEWLINE"" TO 
SEE ORBIT" 

2023 INPUT A* 

2026 CLS 

2027 IF A*-"" THEN GOTO 21 
2300 PRINT "URANUS" 

2313 PRINT 

2520 PRINT "THE THIRD LARGEST PL 
ANET IN THE" 

2330 PRINT "SOLAR SYSTEM AND SEV 
ENTH FROM" 

2340 PRINT "THE SUN.PHYSICALLY V 
ERY SIMILAR" 

2330 PRINT "TO NEPTUNE,BUT RATHE 
R LARGER" 

2560 PRINT "53 M/M +/- 5 0/0.ITS 
DISTANCE" 

2570 PRINT "FROM THE SUN IS 19.2 
AU AND IT" 

2380 PRINT "ORBITS THE SUN IN 84 
.02 YEARS." 

2390 PRINT "URANUS HAS FIVE MOON 
S IN ORBITS" 

2391 PRINT "THAT ARE RETROGPADE. 

2392 PRINT 
2593 PRINT 

2394 PRINT "PRESS ""NEWLINE"’ 1 TO 
SEE ORBIT" 

2593 INPUT A* 

2396 CLS 

2597 IF A*="" THEN GOTO 80 
3O00 PPINT "SATURN" 

3015 PRINT 


3020 PPINT 

3025 PRINT "THE SECOND LARGETS P 
LANET IN THE" 

3030 PRINT "SOLAR SYSTEM AND THE 
SIXTH FROM" 

3035 PPINT "FROM THE SUN.IT ORBI 
TS THE SUN" 

3040 PRINT "IN 29.46 YEARS AT A 
DISTANCE OF" 

3043 PRINT "9.34AU.SRTURN HRS TH 
E LOWEST" 

3030 PRINT "DENSITY OF ALL OF TH 
E PLANETS," 

3053 PRINT "LESS THAN THAT OF WA 
TER,AND MAY” 

3060 PRINT "CONTAIN OVER 60 0/0 
HYDROGEN BY" 

3065 PRINT "MASS.ITS TOTAL MASS 
IS 95 TIMES” 

3070 PRINT "THAT OF EARTH.SATURN 
HAS TEN" 

3073 PRINT "MOONS AND ITS MOST S 
TRIKING" 

3080 PRINT "FEATURE ARE THE SYST 
EM OF RINGS" 

3090 PRINT "16 KM THICK AND THOU 
GHT TO BE" 

3093 PRINT "COMPOSED OF TINY ICE 
PARTICLES" 

3100 PRINT 
3110 PRINT 

3123 PRINT "PRESS ”"NEWLINE”" TO 
SEE ORBIT" 

3130 INPUT A* 

3135 CLS 

3140 If"a*="" THEN GOTO 500 
3500 PRINT "JUPITER" 

3320 PRINT 
3330 PRINT 

3333 PRINT "JUPITER IS THE LARGE 
ST AND MOST" 

3540 PRINT "MASSIVE IN THE SOLAR 
SYSTEM AND" 

3543 PRINT "IS FIFTH FROM THE SU 
N. MASS IS" 

3330 PRINT "317.8 TIMES THAT OF 
THE EARTH. 11 

3333 PRINT "JUPITER IS 3.20AU FR 
OM THE SUN" 

3360 PPINT "AND HRS AN ORBIT OF 
11.86 EARTH" 

3365 PRINT "YEARS.ATMOSPHERE CON 
SI STS MAINLY" 

3370 PRINT "OF METHANE,AMMONIA A 
ND HYDROGEN" 
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3375 PRINT ".JUPITER HRS 13 MOON 
S,THE TWO" 

3300 PRINT "LRRGEST BEING ""GRNE 
VMEDE"" AND" 

3503 PRINT CRLLISTD.JUPITER H 

RS R VERY" 

3390 PRINT "PROMINENT FERTURE CR 
LLED ""THE" 

3395 PRINT "RED SPOT"" THRT HRS 
BEEN STUDIED" 

3600 PRINT "FOR OVER 130 YERRS" 
3610 PRINT 
3620 PRINT 

3630 PRINT "PRESS ""NEWLINE"" TO 
SEE ORBIT" 

3633 INPUT AS 
3640 CLS 

3630 IF A*-"" THEN GOTO 630 
4300 PRINT "MARS" 

4320 PRINT 
4330 PRINT 

4333 PRINT "MRRS IS THE FOURTH P 
LRNET FROM" 

4340 PRINT "THE SUN,WITH RN OPBI 
T OF 607" 

4343 PRINT "EARTH DAYS.AND IS 1. 
52RIJ FROM" 

4350 PRINT "THE SUN.THE HIGHEST 
TEMPERATURE" 

4333 PRINT "RT THE EQUATOR IS RB 
OUT 30 DEG." 

4360 PRINT "AND THE LOWEST ABOUT 
-100 DEG," 

4363 PRINT "CENTIGRADE.MRRS HRS 
A MEAN DIRM." 

4370 PRINT "OF 6730 KM,RND HAS D 
ISTINOTIVE" 

4373 PRINT "POLAR ICE CAPS WITH 
SEASONAL" 

4300 PRINT "RECESSION.MRRS HRS T 
WO MOONS" 

4303 PRINT """PHOBOS"" RND ""DEI 
MOS"" AND" 

4390 PRINT "IT IS UNSURE IF MRRS 
CAN SUPPORT" 

4391 PRINT "LIFE AS KNOWN ON PLA 
NET EARTH." 

4392 PRINT 
4593 PRINT 

4394 PRINT "PRESS ""NEWLINE"" TO 
SEE ORBIT" 

4393 INPUT A* 

4396 CLS 

4397 IF"A*-"" THEN GOTO 730 
3000 PRINT "EARTH" 

5020 PRINT 
5030 PRINT 

3040 PRINT "PLANET EARTH IS THE 
THIRD PLANET" 

3030 PRINT "FROM THE SUN,AND AT 
THIS TIME- 

3060 PRINT "THE ONLY PLANET KNOW 
N TO SUPPORT" 

3070 PRINT "LIFE RS WE KNOW IT.T 
HE ERRTH IS" 

3080 PRINT "RATHER LRRGER THAN V 
ENUS,AND HAS" 

3090 PRINT "RN ORBIT OF APPROX.0 
NE YEAR ON" 

3100 PRINT "ITS JOURNEY AROUND T 
HE SUN.EARTH" 

5120 PRINT "IS SLIGHLTY FLRTTENE 
D RT THE" 

3130 PRINT "POLES AND IS ABOUT 1 


2736 KM IN" 

3140 PRINT "DIAMETER.RS WE ALL K 
NOW,ERRTH" 

5150 PRINT "HRS ONE MOON.THE EAR 
TH WAS" 

5160 PRINT "FORMED ABOUT 4330 MI 
LION YEARS" 

3170 PRINT "AGO AND HAS SUPPORTE 
D MAN FOR" 

3180 PRINT ".009 0/0 OF THIS TIM 
E" 

5190 PRINT 

3195 PRINT "PRESS ""NEWLINE"" TO 
SEE ORBIT" 

5200 INPUT A* 

3210 CLS 

3220 IF fl*-"" THEN GOTO 379 
3500 PRINT "VENUS" 

3320 PRINT 
5530 PRINT 

3540 PRINT "VENUS IS THE SECOND 
PLANET FROM" 

5330 PRINT "THE SUN AND IS ABOUT 
THE SAME" 

3360 PRINT “SIZE RS THE EARTH.AN 
D IS .72AU" 

5370 PRINT "DISTANT FROM THE SUN 
,AND ORBITS" 

3380 PRINT "THE SUN IN 223 DAYS, 
ABOUT TWO" 

3390 PRINT "THIRDS OF AN EARTH Y 

3600 PRINT "THE SURFACE TEMPERAT 
URE IS ABOUT" 

3610 PRINT "730 DEGRESS K.THE SU 
RFACE IS" 

3620 PRINT "COMPLETELY OBSCURED 
BY DENSE" 

3630 PRINT "CLOUDS CONTANING SUL 
PHURIC ACID" 

3640 PRINT "LIFE AS WE KNOW IT C 
OULD NOT" 

5650 PRINT "EXIST UNDER THESE CO 
NDITIONS" 

5660 PRINT 
5670 PRINT 

3680 PRINT "PRESS ""NEWLINE"" TO 
SEE ORBIT" 

3690 INPUT A* 

5691 CLS 

3693 GOTO 849 

6000 PRINT "STANDBY" 

7000 PRINT "MERCURY" 

7020 PRINT 
7030 PRINT 

7040 PRINT "MERCURY IS THE PLANE 
T CLOSEST TO" 

7050 PRINT "THE SUN.NIGHT SURFAC 
E TEMP IS" 

7060 PRINT "THOUGHT TO BE 110 DE 
GRESS K,AND" 

7070 PRINT "AND MIDDAY EQUATORIA 
L TEMP ABOUT" 

7080 PRINT "600 DEGREES K.THUS P 
RECLUDING" 

7090 PRINT "LIFE AS WE KNOW IT 0 
N EARTH" 

7100 PRINT "MERCURY HAS LITTLE 0 
R NO KNOWN" 

7120 PRINT "ATMOSPHERE,AND HAS N 
0 MOONS" 

7130 PRINT "THE PLANETS AVERAGE 
DENSITY IS" 

7140 PRINT "3.2 GRAMS PER CUBIC 


CENTIMETRE" 

7130 PRINT 
7160 PRINT 

7170 PRINT "PRESS ""NEWLINE"" TO 
SEE ORBIT" 

7180 INPUT A* 

7190 CLS 

7195 IF A*-"" THEN GOTO 900 
8000 PRINT """ZX-81 MICRO-COMPUT 
ER. 

8020 PRINT 

8030 PRINT "TRUSTS YOU HAVE ENJO 
YED THIS" 

8033 PRINT 

8040 PRINT "LITTLE TRIP THROUGH 
THE SOLAR" 

8043 PRINT 

9030 PRINT "SYSTEM AND THAT IT H 
AS GIVEN YOU" 

8053 PRINT 

8060 PRINT "FOOD FOR THOUGHT AND 
fl BETTER" 

8063 PRINT 

8070 PRINT "UNDERSTANDING OF OUR 
UNIVERSE" 

8080 PRINT 

8090 PRINT 

8091 PRINT 

8092 PRINT "## ** ** ** ** ** ** 
*# #* #* *#" 

8093 PAUSE 800 

8094 CLS 

8093 PRINT "AS A SOBERING THOUGH 
T HERE ARE" 

8100 PRINT "THE DISTANCES FROM T 
HE SUN IN- 

8200 PRINT "MILES OF EACH OF OUR 
9 PLANETS" 

o^aa DDikiT 

9400 PRINT "PLUTO.3670 MILL I 

ON MILES" 

8500 PRINT "NEPTUNE...2794 MILLI 
ON MILES" 

8310 PRINT "URANUS_1783 MILLI 

ON MILES" 

8320 PRINT "SATURN_966.2 MILL 

ION MILES" 

8330 PRINT "JUPITER...483.3 MILL 
ION MILES" 

8340 PRINT "MARS.141.3 MILL 

ION MILES" 

8332 PRINT "EARTH.93 MILLION 

MILES" 

8360 PRINT "VENUS.67.2 MILLI 

ON MILES" 

8370 PRINT "MERCURY...36 MILION 
MILES" 

9380 PRINT 

8390 PRINT "IT TAKES SUNLIGHT 8. 
33 MINUTES" 

8393 PRINT "TO REACH ERRTH AT 18 
6000 MILES" 

8600 PRINT "PER SECOND." 

8610 PRINT "IT WOULD TAKE A ""JU 
MBO"" JET 643" 

8620 PRINT "DAYS AT 600 MPH NON¬ 
STOP." 

8630 PRINT 

8640 PRINT ".THINK ABOUT 

IT" 

9000 STOP 

9001 SAVE "PLANETS" 

9002 GOTO 1 


12 
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I T IS DIFFICULT playing a game 
of golf inside a ZX-80. The version 
submitted by S Hughes of 
Bushey, Hertfordshire, is entertain¬ 
ing but obviously very much 
condensed. 

You are told the number of the 
hole, its distance and par, and asked 
to select a club. At the end of the 
game, the course par and your score 
are displayed. The program is set for 
nine holes but can be changed to 18 
by replacing line 815 with "A = 19 
THEN GO TO 830”. 

1 LET X = 0 
2 LET A = 1 
3 LET F = 0 
4 LETH = 0 
5 LET B = 0 
9 RAND 

50 LET D = RND(245) + 175 
51 LET P = 4 

52 IF D< 278 THEN LET P = 3 
53 IFD> 350THEN LETP = 5 
61 PRINT 

65 PRINT "HOLE,"; A; “CI";D; □ YARD(S) 

TO PLAY- 
100 PRINT 

110 PRINT “PAR [T;P 
120 PRINT 

135 IF NOT D = 0 THEN PRINT B; “O 
STROKE(S) PLAYED" 

138 IF NOT H = 1 THEN PRINT "CLUB? 5 TO 
9” 

139IFH = 1 THEN PRINT "PUTTER? 1TO 4" 
140 INPUT W 
141 CLS 
150 LETT =1 

160 IF W = 2 THEN LETT = W 
170 IF W = 3THEN LETT = RND(2) + 4 
180 IF W = 4 THEN LETT = RND (4) + 8 
190 IF W = 5THEN LETT = RND (6)+ 20 
200 IF W = 6THEN LET T = RND (9) + 45 
201 IFW = 7 THEN LETT = RND (8) + 96 
220 IF W = 8THEN LETT = RND(9) + 135 
230 IFW = 9 THEN LETT = RND (15)+ 195 
240 LET D = D - T 

245 PRINT "STROKE ”;T;*OYARD(S)" 

246 LET B = B + 1 

250 IF D > -1 THEN GOTO 260 

255 LET D = -D 

256 PRINT D; "□ PAST HOLE- 

268 IF D = 0THEN GOTO 800 

269 IF D < 18 AND D > -19 THEN PRINT "ON 

GREEN- 

270 IFD< 18 AND D>-19THEN LETH = 1 
280 GO TO 60 

800 IFB> PTHEN PRINT "BOGIE □";B;, B-P; 
"□OVER- 

801 IF B= PTHEN PRINT "PAR □";B 

802 IF P-1 =BTHENPRINT“BIRD1ECT:B 

803 IF P-2 = BTHEN PRINT "EAGLEO";B 

805 LETX = X + B 

807 LET F = F+P 

810LETA = A+1 

815 IFA= 10THEN GOTO 830 

820 COTOTO4[839 PRINT "C/PARO";F 

840 PRINT "Y/SCOREO";X 

□ IS A SPACE 
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QUEUE 

Q UEUE is for the unexpanded 
ZX-81 and presents a simula¬ 
tion of a queueing system in a 
post office. There are five 
servers at the windows and the cus¬ 
tomers form a single queue. Custo¬ 
mers are represented by M and F 
and a full-stop signifies that a server 
is free. 

Underneath the queue is a single 
figure from zero to nine which can 
be changed by pressing one of the & 
corresponding characters on the 
keyboard. That shows the average 
rate at which customers arrive. An 
arrival rate of fewer than five means 
that the servers are underloaded, 
and more than five overloaded. 

The author, W E Thompson of Alde- 
burgh, Suffolk, says that theory 
predicts average queue lengths of 1. 

0.001; 2.0.04; 3,0.4; 4.4.2; 5,15; 6, 27; 7. 

39; 8, 30; 9, 31. The model shows that 
the queue can be far from its average 
for long periods. 1K ZX-81. 



10 

DIM Q*< 32> 


20 

LET S*-"." 


30 

LET U-SGN PI 


40 

LET Z-NOT U 


30 

LET Q-U 


60 

LET R-Z 


70 

RRND 


90 

IF "0"<-INKEY* AND INKEY*<- 

"9" THEN LET fi-VAL INKEY* 


90 

PRINT RT 3,Z;A 


100 

LET R-RNDXKS+fl) 


110 

IF R<5 THEN GOTO 210 


120 

IF Q>32 THEN GOTO 80 


130 

LET R-INT <RND*2> 


140 

LET C*»<"M" AND R>+<"F M 

AND 

NOT 

R) 


130 

LET Q*<Q)-C* 


160 

FOR 1-31 TO Q-U STEP -U 


170 

PRINT RT U,I;C*J" " 


180 

NEXT I 


190 

LET Q-Q+U 


200 

GOTO 230 


210~LET S*<INT R+U >*"." 


220 

PRINT RT 3,Z;S* 


230 

IF Q-U THEN GOTO 00 


240 

FOR I-U TO 3 


230 

IF S*< I )<>"." THEN NEXT 

I 

260 

IF 1-6 THEN GOTO 80 


270 

LET S»<I )-Q*< U ) 


280 

LET Q-Q-U 


290 

PRINT RT IJ/ Z; " " ; RT 3,Z> 

iS* 

300 

LET Q*-Q*< 2 TO > 


310 

FOR I-U TO Q 


320 

PRINT RT U>I-U;Q*< I>j " 1 


330 

NEXT I 


340 

GOTO 80 




DEFENCE 


D EFENDERS is a conventional 
Earth defence game but is fast 
enough to be genuinely 
challenging. A succession of aliens 
appear at screen-left and skim across 
the surface of the planet towards 
your craft. 

Go up with 7 and down with 6 and 
trigger your blaster-beam with 0. 
The planet surface in line 5 could be 
made more rugged with graphic Ts, 
Ys and 7s. 

IK Defenders was sent by Simon 
Cox of Dunstable. Bedfordshire (IK 
ZX-81). 


1 FOR Z-PI/'PI TO CODE "<9r*Ph 
ic T>" 

2 PRINT FIT RNDXcCODE "<9r«Phic 
S>",RND*C0DE "<"j CHR* 27 

3 NEXT Z 

4 LET T*PI-PI 

3 PRINT FIT CODE ”<9r*Phic S>" 
,PI-PI j "< thirty two 9raPhic 

6 SLOW 

10 LET fi-PI/PI 

20 LET B-CODE 

30 LET C-INT <RND#C0DE "<9r*Ph 
ic D >"> 

40 PRINT AT A.TjCHR* 18;FIT C,B 
j"< 9r*Phic 4;SPACE ; AT fi, T;CHR* 
8 

50 IF B-T THEN GOTO VRL "200" 


35 IF INKEY*-"0" THEN GOSUB VR 
L "100" 

70~LET B-B-PI/PI 
80 LET fl-fi*'! INKEY**"6" >-< INKEY 
*-"7"> 

90 GOTO CODE "C" 

100 FOR N-CODE "<9r*Phic 2>" TO 
B 

101 PRINT RT R,N;CHR* 131;RT R, 
T;CHR* 10 

103 NEXT N 

103"PRINT RT C/Bt CHR* 23 

106 PAUSE CODE 

107 FAST 

108 CLS 

109 GOTO CODE "<9r*Phic 1>" 

200 PRINT "GAME OVER" 
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Q UICK TAPE, a machine code 
tape routine, will allow you to 
save and load 16K programs 
on the ZX-81 in less than a 
minute. In technical terms the pro¬ 
gram increases the machine baud 
rate to 1,500. To put in the program 
for the first time, type-in and run the 
hex loader, which is the first pro¬ 
gram in the listing. In answer to the 
program prompt, type-in the 
machine code listing line by line. 
When you have finished the listing, 
type ‘S' and the machine code will be 
transferred to the REM statement in 
line 1. Then delete the loader, line by 
line, keeping the REM intact. 

Type-in the second program, start¬ 
ing at line 10. The REM in line 1 
should look like the REM statement 
which you have just created. When 
you run this program it will SAVE 
itself on to tape and then NEW auto¬ 
matically. The machine code routine 
is then stored above RAMTOP ready 
for use. 

To SAVE a program, type RAND 
USE 32512 and to LOAD, type RAND 
USR 32525. When you want to use 
the program LOAD it normally and 
RUN. The Basic will destroy itself 
after transferring the machine code 
above RAMTOP. The routine will 
then be ready to use on your faster 
computer. 

Quick Tape was sent by K S 
Beddoe of Botley, Southampton and 
is proving very useful. 


1 REM 24-0 0 * S 

10 LET R$="” 


Machine code listing 

16514 CD 23 OF 11 06 7F CD 2B 

20 INPUT B* 


16522 7F CD 2B OF C9 CD 23 OF 

30 IF B $ = ” S " THEN STOP 


16530 21 ID 7F 22 16 40 CD 70 

4-0 LET R*=R$+B$ 


16538 7F CD 2B OF C9 0B 0B 0B 

50 CLS 


16546 00 00 00 00 00 00 CD A8 

60 PRINT R* 


16554 03 38 F9 EB 11 CB 12 CD 

7*0 PRINT "LENGTH = "; LEN " 


16570 B3 20 F4 CD 4E 7F CB 7E 

BYTES" 


16578 23 28 F8 21 09 40 CD 4E 

80 GOTO 20 


16586 7F CD FC 01 18 F8 5E 37 

100 LET X = 16514- 


16594 CB 13 C8 9F E6 02 C6 01 

105 FAST 


16602 4F D3 FF 06 23 10 FE CD 

110 IF THEN GOTO 160 


16610 46 OF 30 72 06 IE 10 FE 

16618 OD 20 EE C3 D8 7F 18 EO 

16626 CD A8 03 CB 12 CB OA CD 

120 POKE X,16*CODE A$+CODE R$ (2 


) -4-T6 


16634 7C 7F 18 FB OE 01 06 00 

130 LET R$=R$(3 TO ) 


16642 3E 7F DB FE D3 FF IF 30 

14.0 LET X=X + 1 


16650 49 17 17 38 28 10 Fl Fl 

15® GOTO 110 


16658 BA D2 E5 03 62 6B CD 7C 

160 SLOW 


16666 7F CB 7A 79 20 03 BE 20 

170 STOP 


16674 D6 23 17 30 Fl FD 34 15 

10 SflUE "FAST TAPE ROUTIT®" 


16682 21 09 40 50 CD 7C 7F 71 
16690 CD FC 01 18 F6 D5 lE 31 

20 PRINT "FAST TRPE ROUTINE" 


16698 06 OE ID DB FE 17 CB 7B 

30 PRINT "TO SAUE RRNO USR 325 


16706 7B 38 F5 10 F5 Dl 20 04 

16714 FE 56 30 B2 3F CB 11 30 

12" 


16722 AD C9 7A A7 28 BB CF OC 

4-0 PRINT "TO LORD RAND USR 325 


18730 A7 06 50 10 FE C3 6E 7F 

25” 


16738 21 82 40 11 00 7F 01 EO 

50 PRUSE 150 


16746 00 ED BO 21 FF 7E 22 04 

60 RAND USR 16738 


16754 40 C3 C3 03 
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D ROP 4 simulates a well-known 
parlour game in which you are 
required to complete a row of 
four counters. The display simulates 
neatly the frame used to hold the 
counters and the slow-motion fall of 
the counters down the screen. 

An enjoyable and diverting game 
of tactics from Arthur Douglas, of 
London E4(16K Spectrum). 




100 LET Xel: LET I$="XXX". INK 
0: PAPER 7. CLS : DIM fl( 13,13) 
110 LET S*=CHR$ 144+C-HR* 145+CH 
R$ 14-6 

120 LET T$=CHR$ 147+CHR* 95+CHR 
$ 14-8 

130 LET Ut=" 

14.0 DRTfl 0,127,127,127,127,127/ 
127,127 

150 DRTfl 0,255,255,255,255,255, 

255.255 

160 DRTfl 8,2S4,254,254,254,254, 
254-, 254- 

170 DATA 123,128,128,128,128,12 

8.128.255 

130 DATA 1,1,1,1,1,1,1,255 
190 FOR 3=14-4- TO 14-3: FOR K =0 T 
O 7 

200 READ A: POKE USR C-HR* 3+K,A 

210 NEXT K: NEXT 3 

220 FOR 3=2 TO 17 STEP 3 

230 FOR K =2 TO 26 STEP 4- 

24-0 PRINT INK 6; PAPER 8; AT 3,K 

'll© PRINT PAPER 6,AT 3+1,K;T* 
260 NEXT K. NEXT 3 
270 PRINT INK 3;AT 0,3;"1 2 

3 4- 5 6 7" 

230 PRINT INK 7; PAPER X;AT 20, 
11; “PLAYER ; X 

290 INPUT "WHICH COLUHN £ 1 TO 
7 3 " ; A 

300 IF AOINT A OR A>7 OR A < =0 
THEN GO TO 290 
310 LET C=(A-1) *4+2 
320 IF ATTR (2,0 < >6 THEN PRINT 
FLASH 1;AT 21,7;"COLUMN ”;A;" I 
S FULL". GO TO 290 
330 PRINT AT 21,7,U* 

34-0 FOR 3=0 TO 18 
350 LET Z= ATTR (3,0 
360 PRINT AT 3,C; PAPER X; INK 
7; 1$ 

370 IF 3=2 THEN PRINT INK 3;AT 
J—2,C;CHRJ 32;A;CHR* 32 
380 IF 3>2 AND Z =6 THEN PRINT P 


APE& 6; AT 3 —2 ,C;T$ 

390 IF 3 >2 AND Z=48 THEN PRINT 
AT 3-2,C;*' 

4-00 IF 3>2 AND Z=SS THEN PRINT 
INK 6; PAPER O;AT 3-2,C;S* 

*1* 0=ie OR ATTR (3+2,0 =23 

OR ATTR (3+2,0=15 THEN BEEP 0.1 
, -20. GO TO 4-4-0 
4-20 IF Z =4.8 THEN FOR P=1 TO 4- 
SEEP 0.05,(20-2*3)+P. NEXT P 
4-30 NEXT 3 

4-4-0 LET L=3,'3+3. LET C=A+3 
45S LET A CL ;0 =X 
4-60 FOR 3=—3 TO 0 

4.70 IF A (L +3, C) =X AND A(L+3 + l,C 
)=X AND A(L+3+2,0 =X AND AlL+3+3 
,O =X THEN GO TO 55© 

4-80 IF A (L , C+3) =X AND A(L,C+3 + l 
)=X AND A(L,C+3+2)=X AND A(L,C+3 
+3)=X THEN GO TO S50 
4-90 IF A (L+3,C+3) =X AND AfL+3 + 1 
,C+3+1)=X AND A(L+3+2,0+3+81=X A 
ND A(L +3+3,C+3+3) =X THEN GO TO 5 
50 

500 IF A(L-3,C+3)=X AND AC(L-3) 
-1,C+3+1)=X AND A((L—3)-2,C+3+2) 
=X AND A ( (L —3) —3,C +3+3) =X THEN G 
O TO 550 
510 NEXT 3 

520 LET I*=”000"; IF X=2 THEN L 
ET I$s"XXX" 

530 LET X=X+1. IF X=3 THEN LET 
X = 1 

540 GO TO 280 

550 PRINT OUER 1; FLASH 1;AT 20 
.11;U *( TO 8) 

560 PRINT AT 20,9; FLASH 1; INK 
X;"PLAYER "; (X) ; " WINS" 

570 INPUT "ANOTHER GAME **;A*: I 
F A*(l> <>”»’’ THEN STOP 
580 PRINT AT 20,9," 

": GO TO 220 

590 PRINT AT 21,0;U*;AT 21,16,U 

600 DIH a(12,13): GO TO 220 
9999 SAVE "drop four" 
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T HE AIM of Sewer Rat is to 
dodge the rats which float past 
you down the sewer canals. If 
one of them hits you, those sharp 
teeth will take a tasty snack. 

Your sewer craft is at the top of the 
screen and the rats rise from the 
bottom. To dodge out the way you 
use T to move left and ‘O' to move 
right. Every time you dodge a rat 
your new score is displayed and 
when you hit one your final score 
appears. 

Sewer Rat was sent by R1 Wilkins 
of Kingswood, Bristol and it is for 
the IK ZX-81. 


3 LET DD=PI/PI 
10 LET 8-PI-PI 
IS LET A-VAL "4" 

20 FOR B*VAL "1" TO VRL "20" 

25 PRINT "space, 9raPhic R,5 sP 
aces,Graphic fl" 

30 NEXT B 

33 LET D-INT < RND*VAL "5"HVAL 
" 2 " 

40 FOR OVAL "19" TO PI/PI STE 
P -DD 

30 LET E-INT <RND*3>+1 

60 IF E«2 AND D>2 THEN LET D-D 

-1 

63 IF COVAL "5" THEN LET D=R 
65 LET fl-fl+<INKEY**"0" AND R<V 
RL "6")-<INKEY**"1" AND R>VRL "2 
" ) 


70 IF C»VflL "1" AND D*A THEN G 
0T0 'v'AL "200" 

80 PRINT AT VRL "1", A;"inverse 
V " j AT C, D i " i inverse * " j AT VAL " 1 
100-PRINT AT VAL "1", A;"inverse 
sP ace " j AT C, D ) " i nvers.fr sP ace " 
105 NEXT C 
110 LET S-S+PI/PI 
115 PRINT AT PI/PI,VRL "8";"SCO 

PE=" j s 

120*IF S>VAL "5" THEN LET DD*VA 
L "2" 

125 IF S>VRL "10" THEN LET DD*V 

AL "3" 

130 GOTO VAL "35" 

200 PRINT AT PI-PI,VAL "8";"FIN 
RL" 

220 STOP 
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10 PRINT "ENTER TIME REQUIRED" 
20 INPUT fl 
30 CL8 

40 LET R**" OOOOOOOOO 

0000 " 

50 FOR B*0 TO 13 
60 PRINT fl* 

70 NEXT B 
B0 LET Y-9 
90 LET 2*0 
100 FOR E®0 TO fl 
110 PRINT RT Z,Y;"<" 

120 IF INKEY**"8" THEN LET Y-Y+ 

1 

130 IF INKEY**"5" THEN LET Y=Y- 

1 

140-IF INKEY**"6" THEN LET Z»Z- 

1 

150 IF INKEY**"7" THEN LET Z-Z+ 

1 

160 PRINT RT ZjYj"<" 

170 NEXT E 


I F THE TASTE of mince pies is 
still in your mouth you might like 
to try Mince Pounce, which is a 
pie addicts’ paradise. The aim of the 
IK game for the ZX-81 is to eat your 
way through a table of mince pies in 
as short a time as possible. 

At the start, you are asked to enter 
a time code. The codes quoted by the 
author. Andrew Blight of Fleet. 
Hampshire, include 400 for one 
minute and 1,000 for two-and-a-half 
minutes. You can increase the time 
but the idea is to reduce your time. 

The arrow is your mouth and it 
can be moved around the table using 
the cursor keys. When the time has 
expired the game stops and reports 
code 0/10. There are 169 pies on the 
table. 

There are 10 spaces and 13 Os in 
line 40. 


I N SOME games programs it is 
useful to allow the player only a 
limited amount of time to 
respond. Timed Inputs, by A F 
Olivera of Gibraltar, is a subroutine 
for the ZX-81 which can be added to 
a program to allow the player a 
certain amount of time to reply. 

That depends on the values put 
into the POKE statements at lines 
500 and 510. The numbers are 
POKEd into the FRAMES counter 
which controls the ZX-81 control 
clock. The values in the program 
already will set the FRAMES 
counter to 32767 50ths of a second. It 
can be re-set by altering the POKE 
numbers. 

The program will return the keys 
pressed by the player in the 1$ vari¬ 
able. That can then be checked by the 
programmer’s own control program. 


500 POKE 164-36.255 
510 POKE 164-3?;. 127 
520 LET 
530 CLS 

54.0 PRINT RT 21,0; 1$ 

550 IF PEEK 164-36+PEEK 164-37*25 

6<32767-5*50 THEN RETURN 
560 IF INKEV$ <>•'“ THEN GOTO 550 
570 IF PEEK 164-36 4-PEEK 16437*25 
6<32767-5*50 THEN RETURN 
58© IF INKEY $ = "“ THEN GOTO 5/0 
II© IF C-ODE INKEY$=118 THEN RET 

‘III ^| T cSSI I |*™EN Y |*> =113 THEN 

let I$ = 1$( TO LEN I$-2) 

620 GOTO 530 












T HIS VERSION of the perennial 
game must surely be definitive. 
As usual, your hapless amphi¬ 
bian is required to cross the crowded 
multi-lane highway, then the flood¬ 
ed river—on the backs of turtles and 
logs—before reaching his home 
atop a lily-pad in the fathomless 
swamp. 

The frogs are controlled with F for 
left, G for right, T for up and V for 
down. You have four lives and if you 
manage to get a frog on each of the 
lily-pads you receive a bonus frog, 
up to a maximum of four. Remem¬ 
ber, though, only one frog per pad is 
allowed. There is a timer and a high- 
score facility. 

After the program has been enter¬ 
ed it should be started with “RUN 
2000” to define the graphics, after 
which the normal RUN can be used. 

Andrew Pennel of Cliftonville, 
Kent, who sent the program, says 
that Frogger was written for the 48K 
Spectrum but that owners of the 
16K machine can use it by splitting it 
into two parts, 2000-2660 first, and 
5-1580 second. 

This listing is probably unbeatable 
for the Spectrum. It is certainly the 
best we have seen. (48K or 16K 
Spectrum). 

Graphics notes: 

110,180. etc.—Graphic B 

310—Graphic H, graphic I; graphic 

K, graphic L. 



CRND+31) + 1 


1 REM j_ 

2 REM by Andrew 

5 POKE 23656.S 

10 GO TO 900 
20 FOR 1=1 TO 6 
30 LET X(I)=5*INT 
4-0 NEXT I 
50 PRINT URL $ Q$ 

,60 LET R =20 

100 LET X = 16: LET Y=19 

110 PRINT RT Y,X. INK 4, "H" 

120 PRUSE 20 
130 PRINT URL J ©$ 

14.0 FOR 1=1 TO 6: LET X(D=XtU 
-10*(I/a=INT (1/2))+5 
150 LET X CD =X (I) -16©*-(X (I) >160 
> +160*(X CD <5) . NEXT I 
160 PRINT URL $ ©$: IF Y>9 THEN 
GO TO 200 

170 LET X=X + (A=40) - CA=43) : IF X 
<0 OR X >31 THEN GO TO 400 
^180 PRINT RT Y, X.,' PRPER 5; INK 

200 LET B=RTTR <Y,X>: IF 6=5 OR 
B=6 THEN GO TO 4-00 

205 LET T =T — 1: PLOT OUER 1;32+T 

* 206 IF T =0 THEN LET F=l: GO TO 
4.00 

210 LET XX=X. LET YY=Y. LET K$= 
INKEY $ 

220 IF K$= •• THEN PRINT RT Y,X, 
PRPER 8; INK 4; "I#": GO TO 140 
225 BEEP .02,-10 

230 LET X=X +CK*="G">-CK$="F">; 
IF Y=2i THEN LET Y=19 
©I*® IF X< ° ° R x>31 THEN GO TO 4 

250 LET Y=Y+2f1K$="U")-2»(K$=”T 
“> : IF Y =21 THEN LET Y=19 
260 IF K $ = ”T” THEN LET S=S+5 P 
RINT RT 0.6;S 

270 LET R=RTTR CY.X): IF YY=11 
ORnYY=19 THEN PRINT RT YY , XX; BR 

260 IF R = 160 OR R =47 OR R=5 OR 
R=6 OR R=8 THEN GO TO 400 
290 PRINT RT Y,X; PRPER S; INK 


300 IF HOSb CM tN l)U IU 140 
305 PRINT URL $ Of 

310 LET I=8*INT IX/Sl+3: PRINT 
RT 2,1; INK 3,I;** J ’ 1 ** 

315 LET 5=5+50: PRINT RT 0,6,5 
320 BEEP 2,10 

330 LET FF =FF +1; IF FF=4 THEN G 
O SUB 500 
340 GO TO 20 
400 PRINT URL$ 0$ 

405 PRINT RT Y,X+CX<0> -(X>31) ; 
INK 6, PRPER 6, FLRSH 1, OUER 1; 

410 PRINT RT 0,10+2*F:" **: BEEP 

3,-10 

415 LEI F =F — 1 

420 IF F =0 THEN GO TO 600 
430 PRINT RT Y,X+(X<0)-(X>31); 
INK 8, PAPER 6; OUER l;"*" 

440 GO TO 20 

500 FOR 1=3 TO 30 STEP 8 

510 PRINT RT 2,1;" **;RT 3,1;** 

** : NEXT I 

520 LET FF =0: IF F=4 THEN GO TO 
525 

522 LET F=F+1: PRINT RT 0,10+2* 
F; INK 4; "2#" 

525 FOR T=T TO 120: PLOT 32+T.l 
2: BEEP ,01,T/10: NEXT T 
530 IF 5 00 THEN LET S=S+100 P 
RINT RT 0.6:5 
540 RETURN 
600 PRINT RT 0,12;** 

610 PRINT RT 11.6," YOU SCORED 
** , 5, " ** 

620 IF 5 <HS THEN GO TO 700 
630 PRINT RT 11,20, FLRSH 1;S 
640 PRINT RT 12,6;" R NEU HIGH 
SCORE ! ! J ** 

645 FOR 1=1 TO 5: FOR J=5 TO 10 
: BEEP .05,J+I. NEXT U: NEXT I 
650 DIM N$(&): INPUT "Enter you 
r name max 6 letters) : **;N$ 

660 POKE U5R * © ** , S-256 *INT (S/-2 
56): POKE USR "©” +1, INT CS.^256) 
670 FOR 1=1 TO 6 

660 POKE USR **©*• +1+1, CODE N*(D 
690 NEXT I 

700 PRINT RT 19,0; FLRSH 1;" 
Enter run for another game. 

GO TO 16000 

L |®0 INK 0. PRPER 7 BORDER 7: C 


20 


SINCLAIR PROGRAMS Januury/February 1983 





i S05 PRINT RT 1,0; PAPER 1;TAB 3 

910 FOR 1=2 TO 3: PRINT RT 1,0; 
PAPER l; " **: RT 1,5:” 

920 PRINT RT 1,13, PRPER 1,” 

-T'SExf'S*'" " ;fiT I ' 29 '" 

930 PRINT RT 0,0;"SCORE:0" 

9A0 PRINT RT 0,12, INK 4., "* # # 

950 FOR 1=4 TO 10. PRINT RT 1,0 
; PRPER 5;TAB 31," NEXT I 

960 FOR 1=12 TO 18. PRINT RT I, 
0; PRPER 0; INK 7;TRB 31," " NE 

XT I 

965 PRINT RT 11,0; BRIGHT 1,TAB 
31;" ;RT 19,0;TRB 31," " 

970 FOR 1=76 TO 28 STEP -16 
975 FOR 0=0 TO 349 STEP 6 
gg© fb9X DRAW INK 7,5,0 

985 NEXT O: NEXT I 
990 LET T =0: LET S =0 LET F=4- 

K 9 ?g S p EI 0"?;5‘ EEK USR ••»••♦*»«*« 

1000 DIM N $(5) ; FOR 1 = 1 TO 6 LE 
T n NJMI^=OHR* PEEK (USR "Q" +1+1}7 

0?"HIGH I SCORE.”^HS; ' T by E ’\N* 21 ' 

DIM 

1020 FOR 1=1 TO 13 

i!3g* R 5^i K A LET "*<*>-““* 16 

le4.0 NEXT I 
1050 FOR 1=1 TO 6 

1055 LET P=5: IF I>3 THEN LET P= 
0 

1060 FOR 0=1 TO 32 

10 70 READ fi: LET P$(I,U*5-4 TO O 
*5>=CHRf 17+CHR* P+A$(A) T ° ° 

10.-5 BEEP . 01, (U+32*IJ .rl0 
1080 NEXT O: LET Y(I ) =2*1+3+2*( I 

109© NEXT I 
1120 LET 0$=" M 
1130 FOR 1=1 TO 6 
1135 BEEP .3,1*3 

114.0 LET G»$=0* + ”CHR$ 22+CHR* "+S 

TRJ Y(I> +"+CHR$ 0+P$f"+STR$ I + ” 
X("+STR* I+") TO )+P$r+STR$ I + A 
, TO Xr'+STR* I + " > —1) " 

1150 IF I< >6 THEN LET 0$=0J + '>" 
1160 NEXT I 
1165 GO SUB 50© 

1170 GO TO 2© 

1500 DRTR 5,14-4. ,6,14-6,0,14.7,0, 14 


1520 DRTR 6,153,6,157,6,156,7,32 
153© DRTR 13,13,8,9,13,13,8.9,13 
,13,13,13,8,9,13,13,8,9,13,13,13 
,8,9,13,13,13,8,9,13,13,23,13 
154-0 DRTR 13,13,3.4,5,13,13,13,3 
,4,4,4,5,13,13,13,13,3,5,13,13,1 
3.3,4,5,13,13,3,4,5,13,13 
1550 DRTR 13,8,9,13,13,13,8,9,13 
,8,9,13,13,8,9,13,13,13,8,9,13,1 
3,13,6,9,13,8,9,13,13,8,9 
1560 DRTR 13,6,7,13,13,6,7,13,13 
,13,6,7,13,13, IS,6, 7,13,13^13;13 
,13,6,7,13,13,6,7,13,13,6,7 
1570 DRTR 13,13,13,11,12,13,13,1 
3,23,10,1,13,13,13,11,12,13,13,1 
12,13,13,13,13,10,1,1,is,13 

ii?i3?i3?i3?il;i3 2 i^f;i^^i5: 
ii6$ 3 Rii+^ 1 isl6*'> 13 i3 

2010 FOR I=USR "fl" TO USR "0"+7 
2020 RERD A. POKE I,R 
203© NEXT I 
2040 RUN 

255,255,255,255,255,25 

2510^ DRTR 153,189,126,126,126,60 
,165,195 

2520 DRTR 0,124,247.247,247,247, 
124,0 

2||0 DRTR 63,127,127,255,255,127 
4?2l4?2S2 252 * 2S *'254,255,255,25 


3570 DRTR 0,0,0,0,1,11,7,7 
2560 DRTR 0,0,0,0,128,206,224,22 

259© DRTR 0,62,239,239,239,239,6 
2600 DRTR 7,3,10,12,0,0,0,0 

224,192,80,48,0,0,8,0 
2|2© DgTfl 23,255,255,255,255,255 

2630’DRTR 28,255,249,249,249,249 
,255,26 

2640 DRTR 12,206.240,252,240,240 
,208,12 

2650 DRTR 12,7,15,127,127,15,7,1 
2660 DRTR 0,0,78,79,45,79,78,69 
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S CROLL is a machine code pro- correspond to the compass points stration routine in Listing 2. If the 
gram to move the display across NW. N, NE. W. E, SW, S and SE. direct command “GOTO 10" is then 
the screen in any one of eight RUN the program and the machine entered, the versatility of this scroll 
directions. Enter Listing 1, keying code will be POKEd into the REM program will be demonstrated. Sub-, 
126 characters in the REM statement statement. Then delete lines 10 to 70 mitted by Stephane Crainic, of Paris, 
in line 1. The variables Si to S9 and replace then with the demon- (16KZX-81] 
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T HE DISPLAY will show a grid 
of 16 squares. The grid contains 
the first 15 letters of the alpha¬ 
bet and one space. Slide the letters 
around in the grid, using the space, 


and the puzzle is solved when the 
letters are in their correct order. 

The letters are moved with the 
usual cursor controls and a count is 
kept of the moves taken. Your task is 


to complete the re-arrangement in as 
few moves as possible. A diverting 
little routine, worth having on tape. 
Submitted by W G Davies of Here¬ 
ford for the 16K Spectrum. 


10 REH "IS PUZZLE" 

20 REM & u G Davies i982 
100 PRINT RT fi.iJ; PUZZLE" i * 

T 20.5; "Dhpose your rp{pi'.<-5" 
la® LET a *="OEHKLUCGR.HFDNIB " 
IS® LET 1=1000: r,TH b*(16) 

130 LET c* = "RBCDEFGHIJKLHNO " 
14-0 INPUT "Border ";a,”Ink b 
16© BORDER a: INK b: PAPER 7 
170 CL5 . FOR c =30 TO 176 5TEP 
24L 

180 PLOT C.4-0: DRRU 0,96. NEXT 

C 190 FOR d =4-0 TO 136 STEP 24-. PL 
OT 80.d: DRRW 96.0: NEXT d 
200 LET j=0: LET k =1: LET p =15: 
LET q =20 

220 FOR n =6 TO 16 STEP 3 FOP » 
= 11 ^ TO 20 STEP 3: PRINT RT n.»;a 

*230 LET k -k +1: NEXT X: NEXT n 
24-0 GO SUB 4.90 

260 LET r=p: LET S=q: IF INKEY* 
THEN GO TO 250 

260 IF INKEY*="5" THEN LET s =q+ 
3: IF s;20 THEN GO TO 25© 

270 IF INKEY$=”a" THEN LET S=q- 
3: IF Sill THEN GO TO 25© 

280 IF INKEY* = •’ 6 " THEN LET r=p- 
3: IF r{6 THEN GO TO 25© 

290 IF INKEY*="7" THEN LET r =P + 
3: IF r>15 THEN GO TO 250 
300 IF INKEY*<>"5" AND INKEY*<> 
"6" RND INKEY*?>"7" RND INKEY* <> 
THEN GO TO 250 

310 PAPER 7: BEEP *1.©. PRINT R 
T p . q;SCREEN* (r.-s);RT r .s ;" " 


320 GO SUB 4-00. LET P =r: LET q = 

^330 LET j=J+l: PRINT RT 3.15;J 
360 GO TO 250 

4-00 LET a =1: FOR n =6 TO 15 STEP 
3: FOR »=11 TO 20 STEP 3 LET b 
4(a) =5CREEN* (n .. s > 

4-iO LET a =3+1: NEXT a: NEXT n 
4-20 IF b* = c* THEN GO TO 4-4-© 

4-30 RETURN 

4-4-0 PRINT RT 19.12;"CORRECT": F 
OR b = l TO 16. BEEP ,5.b. NEXT ±> 
4-50 PRINT RT 21.2; "Press any ke 
y to play again." 

4-60 IF INKEY*="" THEN GO TO 4-6© 
4-70 PRINT RT 21.2.-" 

4-S0 PRINT RT 19.12;" G 

O SUB S00: GO TO 200 
4-9© FOR y=i TO 5© 

500 LET r =p .• LET s=q : LET x =INT 
(RND *4-) -#-5 

510 IF x =5 THEN LET S=q+3. IF s 
>20 THEN GO TO 500 
520 IF X=6 THEN LET S=q-3.- IF S 
rll THEN GO TO 500 
530 IF x =6 THEN LET r=p-3: IF r 
?6 THEN GO TO 500 
54-0 IF x -7 THEN LET r =P *3 : IF r 
>15 THEN GO TO 500 
560 PRINT RT P . q; SCREEN* Sr ,3.\ ;■ 
RT r , s ; ” *’ 

560 LET P=r: LET q=S: NEXT y. B 
EEP .5.9: BEEP .5.5 
B7© RETURN 

600 IF J <l THEN LET l=J 
610 PRINT RT 3.15;"0 ";RT 1. 

6;"Best score so far:"; l;" 

RETURN 
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120 POKE 16418,0 
130 PRINT RT 23,0j"TYPE C TO R 
UN,2 TO COPY DESIGN" 

140 IF INKEY**"" THEN GOTO 140 
130 IF INKEY**"2" THEN GOTO 180 
160 IF INKEY**"C" THEN RIJN 
170 GOTO 140 

190~PRINT RT 23,0j"< 32 SPRCES>" 
190 COPY 
200 GOTO 130 


10 LET N-INT <RND*230>+200 
20 FOR fl-1 TO N 
30 LET V-INT <RND*22> 

40 LET H-INT <RND*32^ 

50‘LET RV*21+< 22-V > 

60 LET RH-31+C32-H) 

70 PLOT H,V 
80 PLOT RH,V 
90 PLOT RH,RV 
100 PLOT H,RV 
110 NEXT fl 


T HE AUTHOR of Kaleidoscope, 
Matthew Calveley. of Lytham, 
Lancs, claims amazing results 
with this ZX-81 program. It will 
generate a random number of dots at 
random points on the bottom left of 
the screen and then re-create that 
pattern on the other quarters of the 
screen. All the patterns created will 
be symmetrical. 

Kaleidoscope occupies 1.2K of 
memory but can be squeezed into IK 
by removing lines 120 onwards, 
using VAL where numbers are used 
and by changing line 10 to: 

10 LET N = INT (RND*25)+25. 



H EXLOADER works on the ZX- 
80, which is something of a 
rarity. The REM in line one 
must contain more characters than 
there are bytes in the machine code 
program. The number code 118 must 
not be used in machine code routines 
or all kinds of strange things will 
start to happen to the listing. 

To remove the REM statement 
from line one, POKE 16403, 10. This 




program will help many people who 
still own a ZX-80 to obtain more 
power from it using machine code. 
Machine code programming is 
something which has not been enter¬ 
ed into any great depth with the 
ZX-80. 

The Hexloader was sent by A 
Goodright of Sutton. Surrey. 
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1 LET Q-CODE "" 

2 LET S-Q 

3 LET C-Q 

4 LET M-CODE "<9rj.Phic 1)" 

5 FOR B-M TO CODE "<9r.5.Phic 4 

>" 

6 FOR R-M+C TO CODE "<9r*Phic 
E V-C 

7 PRINT AT B,R;"T" 

8 NEXT R 

9 LET C-C+M 

10 NEXT B 

11 LET X-CODE "< 9r.aPhic 7>" 

20 LET F-M 

25 LET Y-CGDE "?" 

30 LET X«X+<INKEY*-"8" AND X<C 
ODE "< 9raPhic TV >-< INKEY*-" 5" A 
ND X>CODE "»> 

35 PRINT AT Y,X;» 0 " 

40 IF F>CODE "<9r.3.Phic EV THE 
N GOTO CODE "( iTiverse -V_ 


45 IF INKEY*-"0" THEN GOSUB CO 

45-IF INKEY*-"0" THEN GOSUB CO 
DE "W" 

50 GOTO CODE "j” 

60 PRINT AT Y,X+M; 

65 IF PEEK <PEEK 16398+VAL "25 
6"*PEEK 16399)*»CGDE "T" THEN LET 
Q—Q+M 

70 PRINT AT Y,X+M;"0"/flT Y.X+M 
j "< inverse- OV;AT Y^X+Mj" " 

75 LET Y-Y-M 

80 IF Y»M-M THEN LET F-F+M 

90 IF Q>S AND RND<VAL ".5" THE 
N LET X-X-M 

95 IF Q>S AND RND>VAL ".6" THE 
N LET X-X+M 
100 LET S-Q 

110 IF Y-M-M THEN RETURN 
120 GOTO CODE "W" 

150 PRINT Q 


S IXTEEN PINS appear at the top 
of the screen for Bowling and 
the ball at the bottom. Use keys 5 
and 8 to line up the two and press key 
0 to bowl. The ball will be deflected 
by impact with the pins and thus 
make your task more difficult. For 
every pin hit you will add one to 
your score; the score is printed after 
eight balls and the game ends (IK 


19 *^* a ■ 
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1 1 PRINT AT 3,7="************* 

**#*" 

2 PRINT AT 4,7;"* 

*" 

3 PRINT RT 5,7;"* K I N G 0 0 
M *" 

4 PRINT RT 6,7;"* 

*" 

5 PRINT RT 7,7;"************* 
****" 

6 PRINT RT 10,0;" YOU HAVE T 
0 GOVERN fl VILLAGE";RT 12,0;"FOR 

R PERIOD OF FIVE YEARS.YOU";RT 
14,0;"MUST TRY TO KEEP ALIVE RS 
MANY" 

7 PRINT RT 16,0;"PEOPLE RS PO 
SSIBLE,THEY WILL DO";AT 10,0."ON 
E OF THREE JOBS.";AT 20 0;"YOU M 
UST PROTECT THEM AGAINST.." 

6 PRINT RT 21,5;"TYPE ANY KEY 
TO CONT." 

9 IF INKEY*-"" THEN GOTO 9 
10~FOR F-10 TO 21 

11 PRINT RT F,0;» 

12 NEXT F • 

13 PRINT RT 10,0;"...<A5->FLOO 
DS";RT 11,0;". ..< B 5->STRRVRTION" 
;RT 12,0;"...<C»THEIVES";flT 14 
,0;"YOU HRVE TO BE RS RICH RS PO 
SS.";RT 16,0:"RT THE END OF THE 
FIVE YEARS";RT 18,0;"AND THE RIC 
HEST WINS." 

14 PRINT RT 21,5;"TYPE ANY KEY 
TO CONT." 

15 IF INKEY*-"" THEN GOTO 15 

16 FOR F-10 TO 21 

17 PRINT RT F,0;" 

19 NEXT F 

19 PRINT RT 10,0;"HOW MANY PLR 
YERS? "; 

20 INPUT R 

21 PRINT R 
22~DIM N*<A, 11) 

23 DIM U( A > 

24 GOSUB 7000 

34 PRINT RT 21,5;"TYPE RNY KEY 
TO START" 

35 IF INKEY*-"" THEN GOTO 35 

36 FOR F-l TO 22 

37 SCROLL 

38 NEXT F 

39 GOSUB 8000 

40 DIM MCA) 

41 DIM C<A5 

42 DIM Q< A 5 

43 FOR F-l TO R 

44 LET M<F>-1000 

45 LET G<F5-1000 

46 LET C<F5-2500 

47 NEXT F 

48 DIM D< A 5 

49 DIM N< fl > 

50 DIM Z< A 5 

51 DIM X<A5 
52~D IM TCR) 


53 FOR F-l TO R 

54 LET ZCF5-0 

55 LET X< F 5-0 

56 LET T< F 5-0 

57 NEXT F 
100 REM start 
105 LET S-0 
110 LET Y-0 
115 LET S-S+l 

120 IF S-l THEN LET Y*»"SPRING" 
125 IF S-2 THEN LET Y*-"SUMMER" 
130 IF S-3 THEN LET Y*-"AUTUMN" 
135 IF S-4 THEN LET Y*-"WINTER" 
140 IF S-l THEN LET Y-Y+l 
150 IF S-4 THEN LET S-0 
170 FOR P-1 TO R 

175 LET N<P 5-INT <RND*10> 

176 LET Q<p)-Q<p5 +n< p 5 

180 PPINT RT 0,9;Y*;" YEAR ";Y 
190 IF N*<PX 11 >-"M" AND U<P5>1 
8 THEN PRINT "KING ";N*<PX TO 1 
05 

193 IF N*< P X 11 5-"F" AND U<P5<- 
18 THEN PRINT "PRINCESS ";N*<PX 
TO 10 5 

195 IF N*<P X 11 5-"M" AND U<P5<- 
18 THEN PRINT "PRINCE ";N*<PX T 
0 105 

200 IF N*< P 5< 11 5-"F" RND U<P5>1 
8 THEN PRINT "QUEEN ";N*<P5< TO 
105 

201 PPINT 

202 PRINT N<P5;" PEOPLE CAME TO 
THE VILLAGE." 

203 PRINT 

210 PRINT TAB 9;"CASUALTIES*" 

211 PRINT " STARVED . FLOODS . 
THEIVES" 

212 PRINT TAB 3;X<P5;TA8 12/Z<P 
5; TAB 22:T(P> 

214 PRINT "******************** 
************’■ 

220 PRINT TAB 10;"YOU HRVE : " 

240 PRINT TAB 15-<<<LEN <STR* M 
(P555+25/25; "*";M<P5; ", " 

260 PRINT TAB 15-<<<LEN CSTR* Q 
<P5>5+8 5/2);Q<P5; " PEOPLE," 

280 PRINT TAB 15-<<<LEN <STR* C 
< P 5 5 5+15 5^2 5; C< P 5; " SACKS OF COR 
N. " 

290 PRINT "******************** 
*•*•*"*•'♦'**'*•****" 

300 PRINT "LABOUR ARRANGEMENT■" 
320 PRINT "<A5 MENDING THE DYKE 

330 INPUT A1 

335 IF INT AlOfil THEN GOTO 330 
340 PRINT A1 

360 PRINT "<B5 PLANTING CORN "; 
370 INPUT R2 

375 IF INT R20A2 THEN GOTO 370 
380 PRINT R2 

400 PRINT "<C> DEFENDING THE VI 
LLAGE 

409 INPUT A3 

410 IF INT A30R3 THEN GOTO 409 

411 PRINT A3 


412 IF A1+R2+A3<-Q< P 5 THEN GOTO 
420 

413 PRINT AT 21,5;"TOO MANY PEO 
PLE" 

414 FOR F-l TO 22 

415 IF INT A30A3 THEN GOTO 410 

416 NEXT F 

417 GOTO 180 

420 IF YS< >"SPRING" THEN GOTO 4 
30 

422 PPINT "HOW MANY SACKS OF CO 
RN RRE TO BE PLANTED? "; 

423 INPUT D<P5 

424 PRINT D<P5 

425 IF D<P5>C<P5 THEN GOTO 422 

426 LET C<P5-C<P5-DCP5 

427 IF D< P 5/'10>A2 THEN LET D<P5 
-R2*10 

430 PRINT RT 21,5;"TYPE ANY KEY 
TO CONT.» 

440 IF INKEY*-"" THEN GOTO 440 
450 FOR F-l TO 22 
460 SCROLL 

465 NEXT F 

466 FAST 

470 PRINT RT 0,0;M* 

490 PRINT RT 8,14;"******";RT 9 
,14;"* *";RT 10,14;"* ++ *";fl 

T 11,14;"* *";RT 12,14;"***** 

500 PRINT AT 10,27;"T" 

501 LET T< P 5-0 

502 LET Z< P 5-0 

503 LET XCP5-0 

504 SLOW 

510 IF Al<Q(P5/'2.2 THEN GOSUB 1 
000 

520 IF R3<Q< P 5^2.2 THEN GOSUB 2 
000 

530 IF D<P5<Q<P>*2 THEN GOSUB 3 
000 

535 LET C< P )-< C< P VI. 2 5+D< P 5*3 
540 IF C< P 5+D< P 5<Q< P 5*2 THEN GO 
SUB 4000 

550 IF C< P 5-MX P »Q< P 5*2 THEN GO 
SUB 5000 

560 LET Q< P 5-Q< P 5*1.2 
565 LET Q<P5-INT <Q<P5> 

575 LET CCP5-INT <C<P5> 

580 LET M< P 5-MC P 5*1.09 
583 LET M(P5-INT <M<P5> 

590 FOR F-l TO 22 
600 SCROLL 

610 NEXT F 

611 IF M<P5<0 THEN LET M<P5-0 

612 IF CCPX0 THEN LET C< P 5-0 

613 IF GKP5<0 THEN LET Q< P 5-0 
620 NEXT P 

630 IF Y<5 THEN GOTO 115 
640 PRINT AT 0,0;"NOW FOR THE W 
INNER." 

644 LET W*-"" 

645 LET U-0 

650 FOR F-l TO A 
660 PRINT N*(FX TO 10 5;" WITH 
• ";M<F 5; ", " 
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F IVE-YEAR PLANS, monetar¬ 
ism. the green revolution, 
laissez faire and the dictatorship 
of the people. You can try them all. 

Kingdom gives you a rural realm 
to regulate and five years in which to 
increase your personal wealth and 
protect your people against flood, 
famine and the depredations of the 
ruthless local banditry. 

You are first given instructions for 
the game and asked to input your 
name, age and sex. Depending on the 
information you supply, you will be 
dubbed king, queen, prince or 
princess and then asked to decide 
how best to divide your available 
workforce in the season ahead. 
Consider the crops or your subject 
will starve. Bear the bandits in mind 
or your minions are murdered. 
Delay on the dykes and they will 
drown. 

It is reasonably difficult. Our 1,000 
subjects were reduced to single 
figures after the first year. 

Any number can play and you 
have five years in which to justify 
your kingship and to amass as much 
money as possible by the judicious 
selling of surplus grain. 


Good luck, your highness, and 
thanks to Andrew Johnson of Amer- 
sham, Bucks, who submitted this 
excellent listing (16K ZX-81). 



680 IF MCF55-W THEN LET U*-N*<F5 
< TO 105 

690 IF M<F5>W THEN LET W-M<F5 
700 NEXT F 
70S POKE 16418/0 
710 PRINT AT 20/0J"CONGRATULATI 
0N8 "jU YOU ARE THE WINN 
6 R OF THE GAME WITH »"jW 
730 GOTO 10000 


1000 REM DYKE 

1010 IF INT <RND*35+1-1 THEM RET 
URN 

1020 LET K-INT <RND*105+3 

1030 FOR F-3 TO K+3 

1040 FOR G-0 TO 21 

1030 PRINT AT G/F;"<«r*Phic A5" 

I860 NEXT G 

1070 IF K#10>Q<P5 THEN LET K-INT 


< Q( P V10 5 " 

1080 LET CKP5-Q<P5-K*10 
1090 IF K>8 THEN LET M<P5-M<P5-< 
<K-8 5*100 5 
1093 LET Z<P5-K#10 
1100 LET C<P5«C<P5-K#15 
1110 RETURN 
2000 REM DEF 

2010 IF INT < RND*3 5+1-1 THEN RET 
URN_ 
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2020 LET K-INT <RND*105+3 
2025 IF K*6>Q<P> THEN LET K-INT 
( Q< P V6 > 

2030 FOR F-27 TO 16 STEP -1 
2040 PRINT PT 10;Fj"T " 

2050 NEXT F 

2060 FOR F-l TO K 

2070 PRINT AT 10;16;"<9r*Phic 4> 

2080 PRINT AT 10;16;"<9r*Phic 1) 

2090 PRINT AT 10;16;"<9r*Phic 2> 


2100 PRINT AT 10,16i "<9r«.Phlc 3> 


2110 NEXT F 

2120 FOR F-16 TO 27 

2130 PRINT AT 10,Fi" T" 

2140 NEXT F 

2150 LET CKP>-QCP>-K*6 

2151 LET T<P>-K*6 

2160 LET C<P>-C<P>-K*25 
2170 LET M<P>-M<P5-K*15 
2180 RETURN 
3000 REM STAR 

3010 LET K-ABS <D<P>-<Q<P>*2>) 
3015 IF K>Q< P > THEN LET K-CKP) 
3020 LET GKP>-GKP>-< I NT <K>> 

3035 LET X<P>»K 
3040 RETURN 
4000 REM BUY 

4010 LET K-INT <RND*5>+15 
4020 FOR F-l TO 22 
4030 SCROLL 
4040 NEXT F 

4050 PRINT AT 0,0; "YOU HAVEN/'T G 
OT ENOUGH CORN TO FEED YOUR VIL 
LAGE-YOU MUST BUY SOME..." 

4060 PRINT 

4070 PRINT "CURRENT BUYING RATE 

- ";K 


ACk Oft DDTkJT 

4090 PRINT "YOU HAVE *";M<P> 

4100 PRINT 

4110 PRINT "THE MOST YOU CAN HAV 
E ARE "jINT <M<PVK> 

4120 PRINT "SACKS" 

4140 PRINT "HOW MANY DO YOU WANT 
TO BUY?"; 

4150 INPUT I 

4160 IF IXIKPVK) THEN GOTO 414 
0 

4170 PRINT I 
4180 PRINT 

4190 PRINT "THAT WILL COST *";I* 
K 

4200 LET M<P)-M<P>-<K*I > 

4210 LET C<P>-C<P>+I 
4220 RETURN 
5000 REM SELL 
5010 FOR F-l TO 22 
5020 SCROLL 
5030 NEXT F 

5040 PRINT AT 0,0;"YOU HAVE A SU 
RPLUS OF CORN,DO YOU WANT TO S 
ELL ANY,IF SO SPECIFY THE 

AMOUNT." 

5050 INPUT A* 

5060 IF A*<1>-"N" THEN RETURN 

5070 LET K-VAL A* 

5071 IF K<-C< P !> THEN GOTO 5080 

5072 PRINT 

5073 PRINT "YOU ONLY HAVE ";INT 
<C<P>>;" SACKS." 

5074 IF INKEY*-"" THEN GOTO 5074 
5075~GOTO 5000 

<5090 LET J-INT <RND*5>+5 
5090 PRINT K;" SACKS OF CORN,AT" 
5100 PRINT "*";J;" A SACK,WILL M 
AKE " 


5110 PRINT "*";K#J 
5120 LET M<P>-M<P>+K#J 
5130 LET C<P>C<P>-K 
5140 RETURN 
7000 FOR F-l TO A 
7010 CLS 

7020 PRINT "PLAYER ";F 
7030 PRINT 

7040 PRINT "YOUR NAME PLEASE " 

7050 INPUT N*<F> 

7051 PRINT N*CF> 

7052 PRINT 

7060 PRINT "YOUR AGE<APROX>? "; 
7070 INPUT UCF) 

7080 PRINT U< F) 

7090 PRINT 

7100 PRINT "ARE YOU MALE<MVFEMA 

LE<F)? "j 

7110 INPUT N#< F X11> 

7120 PRINT N*CFX 11 > 

7130 PRINT 
7140 PRINT "O.K.? 

7150 INPUT H* 

7160 PRINT H* 

7170 IF H*-"NO" OR H*»"N" THEN G 

OTO 7010 

7180 NEXT F 

7190 RETURN 

8000 FAST 

8005 LET M*«"" 

9010 FOR F-l TO 22 

8020 LET M*-M*+"< thr-ee 9r*Phic A 

s; inverse SPACE;twemta two SPACE 

SJSiX 

8030 NEXT F 

8040 SLOW 

8050 RETURN 

9008 SAVE "KINGDOM" 

9010 RUN 
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W G DAVIES of Hereford has 
sent a frivolous but funny 
game for the 16K Spectrum. 
It is called Juggler and requires you 
to keep three coloured balls in the air 
by manoeuvring the juggler’s ape¬ 
like arms with keys 1 and 0. 

The listing is complete with sound 
effects and a running score. It would 
be ideal for keeping children enter¬ 
tained on wet winter afternoons. 

For graphics in lines 1040, 1460. 
1640 and 5030 enter 0 in graphics 
mode. 











"TT’OU ARE on an African plain." 

V say the instructions for this 
game. “You must get to your 
camp (H) but there are hungry rhinos 
after you. although they are stupid 
and stop chasing when there is a tree 
in front of them." 

So your strategy is clear; keep a 
tree between yourself and the raven¬ 
ous rhinos as you hot-foot home¬ 
wards. A game which grows on you. 
occupying about 4K of the ZX-81, 
submitted by John Webster of 



Wetherby, West Yorkshire. 



4-60 GOTO 350 
4-70 FOR R = 1 TO RH 

460 IF PEEK C C33*CUCR) +CUCR) <X) 
- CO (A) >X) ) +DF+U CR) + tu (A) <Y) - <W CR 
) >Y) ) ) =8 THEN GOTO 54® 

490 PRINT RT UCR>,U(R);’* " 

500 LET U CR) *U CR) + CU CA) <X) - (U CR 
) >X) 

510 LET CJCR) =Utfl> + CUCA) <Y) - (OCR 

) >Y) 

520 IF O(R) =X RNO W CR) =Y THEN G 
OTO 560 

530 PRINT AT UtA),U(R);"U" 

54.0 NEXT R 
550 RETURN 
560 SLOU 

565 REM CAUGHT BY RHINU 
570 FOR A = 1 TO 10 

580 PRINT RT X,Y;"g";AT X,Y;"g" 
590 NEXT R 

600 LET S=INT lSK*RH*YV31) 

510 SCROLL 

620 PRINT TRB 10;"YOU SCORED 


10 PRINT RT 10.9;"U RHINO U" 

20 PRINT 

30 PRINT "WOULD YOU LIKE INSTR 
UCTIONS?" 

4.0 IF INKEY* = "Y" THEN GOTO 790 

0 

^ 0 S0 IF INKEY$ < > "N" THEN GOTO 4-0 

60 LET HS=0 
70 CLS 

80 LET DF=PEEK 16396+256tPEEK 
16397+1 

90 PRINT "HOW MRNY PLAYERS?" 
100 INPUT PL 
XIO DIM HCPL) 

120 FOR P=1 TO PL 
130 SLOU 
14.0 CLS 

KILL S 

160 INPUT SK 

170 PRINT "HOU MRNY RHINOS?” 

180 INPUT RH 

185 REM SET UP SCREEN 

190 FAST 

200 DIM OCRH) 

210 DIM U CRH) 

220 CLS 

230 FOR R=1 TO 90-CSK*10j 

R^SffSiRSV^ (RND * 21, ^ INr 1 

250 NEXT R 

260 PRINT RT 10.31;"H" 

270 FOP A=1 TO RH 

280 LET UCA)=INT CRND*21) 

290 LET UCA)=INT CRND*30)+2 

e 3 ?S E S F G gf| K a 4g F+u<B ’♦ 33tu<B >> <> 

320 «<«>-«<«> i-«" 

330 LET X=10 
34.0 LET Y =0 
34.5 REM MAIN LOOP 
350 PRINT RT X,Y;"O" 

360 IF X = 10 AND Y =31 THEN GOTO 
750 

370 PAUSE 200 
380 LET M$=INKEY$ 

385 REM MOUE RHINOS 
390 GOSUB 4-70 

395 REM CHECK UALIDITY OF PLAYE 
RS MOUE 

400 LET UM=<M*=“C" OR M*="U“ OR 
M*="B")—<M*="R" OR M*="T” OR H* 

410 LET HM=CM*="Y" OR H**"H" OR 
_M*=”B">-CM*="R" OR M$="F" OR MS 


630 SCROLL 

640 IF 5>HS THEN LET HSaS 
650 IF 5>HCP) THEN LET HCP)=S 
660 PRINT TAB 10;"HIGH SCORE*”; 
HS 

670 SCROLL 

680 PRINT "YOUR HIGH*”;HtP) 

690 SCROLL 
700 SCROLL 

710 PRINT "PRESS ANY KEY TO COF 
TINUE.” 

720 IF INKEY*="“ THEN GOTO 7200 

730 NEXT A 

740 GOTO 120 

750 SLOU 

760 SCROLL 

770 PRINT "WELL DONE.YOU MADE I 


780 GOTO 600 
790 CLS 

795 REM INSTRUCTIONS 
Sg^PRINT TRB 12; "RHINO”; TRB ia 

‘810 PRINT 

820 PRINT " YOU RRE ON RN RFRI 
CRN PLAIN. YOU MUST GET TO YOUR 
CRMP CH),BYUSING THE KEYS AROUN 
D THE "«6””. X.E." 

030 PRINT TRB 12; "R T Y~;TRB 12 
;"F H";TRB 12; "C U B" 

840 PRINT 

850 PRINT " BUT,THERE RRE HUNGR 
Y RHINOS AFTER YOU CW),ALTHOU 

GH,THEY RRE RATHER STUPID AND ST 
OP CHASING WHEN THERE IS fl TREE 
(£) IN FRONTOF THEN." 

860 PRINT ,,"PRESS ANY KEY TO C 
ONTINUE." 

870 IF INKEY * = " ** THEN GOTO 870 
880 GOTO 60 


420 IF PEEK (Y+MM+DF+ (X+UM) *33) 
=8 THEN GOTO 350 

425 REH MOUE PLRYER 
438 PRINT RT X,Y, — ■" 

440 LET X=X+UM 
450 LET Y =Y +HM 
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3~REM FACTORS 60 GOSUB 190 

10 FAST 70 GOTO 30 

20 INPUT R 00 FOR B-3 TO R STEP 2 

30 PRINT Rj 90 FOR C-3 TO B-l STEP 2 

4© FOR B-A-l TO 1 STEP -1 100 IF B/C-INT < B/C > THEN GOTO 

30 IF fi/B-INT <R/B> THEN PRINT 150 
%«,Bi 110 NEXT C 

60 NEXT B 120 IF A/BOINT <fl/B> THEN GOTO 

70 PRINT 130 

80 RUN 130 GOSUB 190 

140 GOTO 120 
130 NEXT 8 

5-REM PRIME FACTORS 160 POKE 16398,(PEEK 16398>-l 

20 INPUT R 170 PRINT 

30 PRINT flj"-''; 180 RUN 

40 LET B-2 130 PRINT B 

30 IF R/BOINT <fl/B) THEN GOTO 200 LET R-R/B 

90 210 RETURN 


I ASON MINETT of Birkenhead, 
Merseyside, has sent two pro¬ 
grams for calculating factors. 
The first will find all the factors of a 
given number and the second will 
provide its prime factors. 

In both cases the machine waits 
for a number to be input and then 
prints the appropriate answers (IK 
ZX-81). 


B LACK HOLES is an uncompli¬ 
cated game for the IK XZ-81 for 
which you are required to 
manoeuvre your speeding space¬ 
craft through a whole cosmos of the 
omnivorous megastars. 

Change course with keys 8 and 5 
and when you crash the length of 
time you survived will be displayed. 
Sent by James Hatchell of Guildford, 
Surrey. 


10 LET R-17300 

20 LET D-0 

30 LET Y-10 

40 LET B-INT <RND#21> 

30 PRINT RT 21,Bj" " 

60 PRINT RT 9,V-1j" 

70 IF Y-21 THEN LET Y-l 
80 IF Y-0 THEN LET Y-20 
90 PRINT RT 10,Yj"H" 

100 POKE R,B 
110 LET D-D+l 
120 LET fl-fi+1 

130 LET Y*Y+(INKEY*»"0“)-(INKEY 
•-"3"> 

140 SCROLL 

130 IF R-17330 THEN LET fl-17300 
160 IF PEEK <R-12>-Y THEN GOTO 
180 

170 GOTO 40 

180 PRINT "CRASH ”jD 


SINCLAIR PROGRAMS /anuary/February 1983 






100 REM Utility Draw 
110 REM © 1962 P Safranek 
120 GO SUB 34.0: CLS : LET X =0 : 
LET y=© 

130 LET a$=INKEY$ 

14-0 IF a$<>"o" A ND a$<>"d*’ AND 
a$o"s" RND a$o"r** RND a$o"c" 
THEN GO TO 21© 

150 IF 3 $ = "0" THEN GO SUB 390 

160 IF a$="d" THEN GO SUB 4.30 

1S0 IF a $ = "S *’ THEN GO SUB 520 

190 IF a$="r" THEN GO SUB 4-10 

200 IF a ” c ’* THEN GO SUB 4-9© 

210 let x=x <a$ = " j") - ra$ = "g**i 
220 LET y=yt(a$="y’M - (a $="n" ) 
230 LET 

LET y=^+(a$= , u") -ta$="b"j 
250 LET x=Xf(3$ a "®'')-(a$="t") 
260 LET y=y + (a$ = "t“) -(a$ = “m’ , i 
270 IF x<0 THEN LET X =0 
260 IF X >255 THEN LET X =255 
29© IF *4 > 175 THEN LET 4-175 
300 IF y <© THEN LET y=0 
3*3 Si-21 X ^ y: PLOT oOER 1; xy 
320 PLOT x,y. PLOT OVER o,x,y 
330 GO TO 130 

34-0 INPUT "ink T0-73 i ' “pap 
er rs-73 7”; p ' "border C0-73 7"; b 
350 IF i <0 OR i >7 THEN GO TO 34- 


360 

e 

370 

0 

360 
390 
O i > 
4-0© 
4-10 
4-20 
4-30 
4.4-0 
4-50 
460 
470 
480 
490 

r 

300 

510 

520 

53© 

540 

550 


IF p <0 OR i >7 THEN GO TO 34 

IF b<0 OR b >7 THEN GO TO 34 

BORDER b: PAPER p: INK i 
input "over [0 or H7";o IF 
1 AND OO0 THEN GO TO 39© 
RETURN 

INPUT "x?";x,"y?";y 
RETURN 

INPUT "x coord”;a 
INPUT "y coord ";b 
INPUT "draw X?"; c 
INPUT "draw y?";d 
PLOT a,b: DRAU C , d 
RETURN 

INPUT "XT"; xx; "y7"; yy; "r?*’; 

CIRCLE xx,yy,r 
RETURN 

INPUT "Name7"; LINE 
SAUE f $5CREEN$ 

RETURN 

5AUE "ut .draw" LINE IBB_ 




P ETER SAFRANEK of Ashford. 
Middlesex, has sent a very use¬ 
ful graphics program for the 
16K or 48K Spectrum. Commands 
available are “o" to input the over: 
“d" to draw for inputted x and y and 
draw x and draw y; “c" to draw a 
circle around inputted x and y co¬ 
ordinates and inputted radius: “s" to 
save the design on the screen as a 
SCREENS: and “r" to re-set the flash¬ 
ing pixel cursor to inputted x and y 
co-ordinates. 

The pixel cursor is moved in any 
one of eight directions using the 
eight letters around “H” on the key¬ 
board—i.e.. T. Y. U. G. J. B. N and M. 
Once you have entered the program 
you can SAVE it by entering "RUN 
550". 

Practice and patience can produce 
displays like the map of Europe 
shown: an outline on the screen in 
washable ink was a help for this, 
Safranek reports. The advantage of 
such a saveable display for educa¬ 
tional purposes is obvious (16 or 48K 
Spectrum). 
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10AD IN THE HOLE is a pro¬ 
gram to demonstrate vector 
translations. Its use of strong 
graphics to illustrate a mathematical 
concept is reminiscent of the listing 
on Binomial Distribution in our last 
issue and should similarly be useful 
for teachers and students of 
mathematics. 

The program was sent by David 
Hanson, a mathematics master at 
Gordonstoun Preparatory School 
(16K ZX-81). 


• *** • 

* the 


10 PRINT AT 0,8;"TOAD IN THE H 
OLE" 

20 PRINT AT 1,8;"(sixteen 9raP 
hie 7s. 

30 PRINT AT 2,15;"BY" 

40 PRINT AT 3,10;"DAVID HANSON 

50 PAUSE 100 

60 PRINT AT 7,0;"IN THIS GAME, 
YOU MAKE THE TOAD MOVE INTO THE 
HOLE, BY PRESSING THE CORRECT N 
UMBER KEYS. PRESS NEWLINE 


TO CONTINUE." 

70 PAUSE 500 
73 CLS 
80 LET E»1 
90 FOR D«2 TO 19 
100 PRINT AT E,D;"<graphic 6)" 
110 NEXT D 
120 LET E~20 
130 FOR D®2 TO 19 
140 PRINT AT E,D;"<9r*Phic 7>" 
150 NEXT D 
160 LET D-l 
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170 FOR E*2 TO 19 

180 PRINT AT E,D;"<graphic 8>" 

190 NEXT E 

200 LET D«20 

210 FOR E-2 TO 19 

220 PRINT AT E,D;"<9raPhic 3V 

230 NEXT E 

240 LET E-20 

230 FOR D-4 TO 16 STEP 3 
260 PRINT AT E,D;"<graphic R>" 
270 NEXT D 
230 LET D«1 

290 FOR E»3 TO 17 STEP 3 
300 PRINT AT E,D; "<9raPhic R)" 
310 NEXT E 

320 PRINT AT 1,1; "<graphic 3 )"j 
AT 1,20; "<9raPhic 4>";AT 20,1;"< 
graphic 2 >" ; AT 20.- 20; "< graphic 1 
>" 

330 PRINT AT 20,0;"0";AT 17,0;" 


1";AT 14,0;"2".i AT 11,0;"3";AT 8, 
0;"4";AT 3,0;"3";AT 2,0;"Y" 

340 PRINT AT 21,1;"0 1 2 3 

4 5 X" 

350 LET A*=*"< graphic Y; inverse 
ASTER ISK; 9raP hie T>" 

360 LET B**"<graphic 3; i nverse 
SPACE; 9raPhie 4>" 

370 LET C**»<9raPhic Q;SPACE;gr¬ 
aphic W>" 

330 LET D*»" " 

390 LET E$~"< graphic 3; three gr¬ 
aphic 6s.i9r3.Phic 4>" 

400 LET F*®"<9raPhic 9;graphic 
A;graphic 3>" 

410 LET G$r"< graphic 2;three 9r 
aPhic 7s;graphic 1 >" 

300 LET Hs=INT <RND*3H2 
510 LET I* I NT <RND*3H2 
320 LET J*<3*H>+1 
530 LET K*3*I 

600 PRINT AT 17,2;A*;AT 18,2;B* 
;AT 19,2;C* 

610 PAUSE 30 

650 PRINT AT 20-K,J;G*;AT 19-K, 
J; F®; AT 19-K, J; F*; AT 17-K,J;F*;A 
T 16-K,J;E* 


700 PRINT AT 0,21;"HOW MANY" 

710 PRINT AT 1,21;"SPACES " 

720 PRINT AT 2,21;"RIGHT ?" 

730 INPUT P 

735 IF P>5 OR P<0 THEN GOTO 720 
740 PRINT AT 4,21;"RIGHT " ; P 
750 PAUSE 100 
760 PRINT AT 2,21;"UP ? 

770 INPUT 0 . 

773 IF Q>3 OR Q<0 THEN GOTO 760 
780 PRINT AT 5,21;"UP ";Q 
790 PAUSE 100 

800 PRINT AT 17,2;D*;AT 18,2;D* 
;AT 19,2;0* 


810 LET R*<3*P>+1 


815 LET 8«3*Q 

820 PRINT AT 19-S,R+1;C* 

830 PRINT AT 18-S,R+1;B* 

840 PRINT AT 17-8,R+l;A* 

830 PAUSE 100 
870 PRINT AT 1,21;" 

880 PRINT AT 2,21;" 

890 PRINT AT 4,21;" 

900 PRINT AT 3,21;" 

910 IF KOS OR JOR THEN PRINT 


AT 0,21;"HARD LINES" 
915 IF K»3 AND J*R 
T 0,21;"WELL DONE" 
920 PRINT AT 2,21;" 
930 PRINT AT 3,21;" 
940 PRINT AT 4,21;" 
930 PRINT AT 3,21;" 
960 PRINT AT 6,21;" 
970 PRINT AT 7,21;" 
980 PRINT AT 8,21;" 
990 PRINT AT 10,24; 
SPACE;graphic 5)" 


THEN PRINT A 

THE TOAD" 

HAD TO " 

MOVE " 
ACCORDING" 

TO THE " 
VECTOR" 
TRANSLATION" 
"<graphic 8; 


1000 PRINT AT 11,24;"Cgraphic 8; 


SPACE;graphic 
1010 PRINT AT 
1020 PRINT AT 
1030 PRINT AT 
1040 PRINT AT 
1030 PRINT AT 
1060 PRINT AT 


3)" 

18,23;H 
11,25;I 

16,21;"PRESS RUN" 
17,21;"AND THEN" 
18,21;"NEWLINE" 
19,21;"FOR ANOTHER 


1070 PRINT AT 20,21;"TRY" 
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D eath run just about nils ik 
of the ZX-81. Your speed is dis¬ 
played in miles per hour, start¬ 
ing at zero and rising in tens. 
When it reaches 80 your score 
begins to rise in tens. Be careful: if 
your speed exceeds 90 and ‘OILY 
ROAD’ is displayed in the top left- 
hand corner you are very likely to 
add to the accident statistics. 

So slow down by pressing l. You 
can also increase speed by inputting 
0. When you exceed 90mph the vari¬ 
able Q increases by one. and when Q 
reaches 40 you have finished and 
your score is displayed, along with 
high score and the highest speed 
achieved. 

Some skill is involved, since you 
must stay between 80 and 90 mph for 
a high score: the highest score 
possible if you exceed 90 mph all the 
time is 410. You have to finish the 
course for your score to be con¬ 
sidered for high score status. 

Darren Fleming of Halifax. West 
Yorkshire, who submitted the pro¬ 
gram, reports the best high score as 
510.(1K ZX-81). 


1 LET E=*0 

2 LET H®0' 

4 LET Q»0 
6 LET D=0 

10 LET S=0 

20 LET J=INT < RND#5 > 

21~IF 8>80 THEN LET D*D+10 

22 IF 8 >90 THEN LET Q*G+1 

23 IF Q*40 THEN GOTO 400 

40 LET K=INT <RND*14> 

41 LET 8=8+10 

42 IF INKEY*="1" THEN LET 8=8+ 

er 

43-’IF INKEY*«"0" THEN LET 8=8- 
15 

44 IF S>E THEN LET E«S 
50-IF K<6 THEN PRINT RT 0,0j"0 
ILY RORD" 

51 IF K>6 THEN PRINT RT 0,0j" 


55 IF K<6 RND 8>90 RND J*3 THE 
N GOTO 300 

100 PRINT RT 10,14;"MPH*";S;" " 
130 GOTO 20 
300 CLS 

310 PRINT ”***CRRSH BANG WALLOP 
***","SCORE")D 
315 PRIJSE 200 
316-CLS 
320 GOTO 4 
400 CLS 

410 IF D>H THEN LET H*D 

420 PRINT RT 10,0j"##*FINI8H##* 
SCORE""j D,"HIGH SCORE*" } H,,"HIGH 

SPEED*";E 

421 PAUSE 200 

422 CLS 
430 GOTO 4 








10 RANDOMISE 
20 LET A = RND(3) 

25 CLS 

30 PRINT "MINI BANK RAID" 

50 PRINT "WEAPONS ARE (S)HOOT. (R)UN. 
(S)MART BOMB. (M)YSTERY." 

90 PRINT"YOU ARE ABOUTTO BE SHOT 
<S> <R>?" 

100 INPUT BS 

110 IF B$ = "S" THEN GOTO 140 

120 IF B$="R"THEN GOTO 140 

130 GOTO 5000 

140 IF A = 1 THEN GOTO 5000 

150 IF A = 2 THEN GOTO 5000 

160 IF A = 3 THEN PRINT “YOU ESCAPED" 

170 PRINT "TWO GUARDS APPROACHING 

<M> <S>?” 

180 INPUT C$ 

190 1FC$ = "M"THEN GOTO 220 
200 IF C$ = "S” THEN GOTO 220 
210 GOTO 5000 
215 LET A = RND(3) 

220 IF A = 1 THEN GOTO 5000 

230 IF A = 2 THEN GOTO 5000 

235 IF A = 3 THEN PRINT "YOU ESCAPED" 

240 PRINT-YOU ARE IN THE BANK <T> ” 

250 INPUT D$ 

260 IF D$ = T* THEN GOTO 280 
270 GOTO 5000 
280 FOR I = 1 TO 3 
290 PRINT I; “<**>" 

300 NEXT I 
310 INPUT E 

320 IF NOT E = RND(3) THEN GOTO 5000 
330IFE = RND(3)THEN GOTO 350 
350 CLS 

360 LETX = RND(IOO) 

379 LETZ = RND(100) 

380 PRINT “WELL DONE. YOU HAVE RUN 
AWAY WITH £";X*Z 

990 STOP 
vmn Pt *5 

5001 PRINT "O ■ O ■ 

5002 PRINT 

5003 PRINT 

5004 PRINT"YOU HAVE BEEN KILLED." 
5010 INPUT G$ 

5020 IF G$ = "R" THEN GOTO 25 
□IS A SPACE 
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1 REM SPEARMAN 

50 PRINT AT 21,01" SPEARMANS 
RANK COEFFICIENT" 

52 PAUSE 50 

55 SCROLL 

56 SCROLL 

60 PRINT AT 21, 0i "NO. OF VALUE 
S?" 

70 INPUT I 

75 SCROLL 

76 IF I>-10 THEN PRINT CHR* 15 
7 i CHR* <1+146> 

77 IF I<10 THEN PRINT CHR* <1+ 
156 > 

70 SCROLL 
02 LET J-0 
03 LET K-0 
05 LET B-0 
07 DIM C<I> 

80 DIM D< I > 

09 DIM S<I> 

90 DIM A<I> 

95 DIM R<I> 

96 PRINT AT 21,0."GREATEST OR 
SMALLEST FIRST?<GxS>" 

97 INPUT A* 

98 SCROLL 

99 IF A*-"G" THEN PRINT "GREAT 
EST” 

100 IF A*-"S" THEN PRINT "SMALL 
EST" 

101 SCROLL 

102 SCROLL 

103 IF J-0 THEN PRINT AT 21,0;" 
FIRST " ; I j " VALUES?" 

104 IF J-l THEN PRINT AT 21,0;" 
SECOND "; I; ” VALUES?" 

105 SCROLL 

106 SCROLL 

107 FOR F-l TO I 
110 INPUT A< F> 

115 PRINT AT 21-0;A<F> 

116 SCROLL 
120 NEXT F 

130 FOR F-l TO I 

135 FOR G-l TO 1 

140 IF A<F»A<G> THEN LET 0-0+1 

145 NEXT G 

150 IF A*-"G" THEN LET R<F>—B+ 
I 


170 IF J-l THEN GOTO 300 
200 REM re definite variables 
210 FOP F-l TO I 
220 LET C'< F >-R< F > 

230 LET D< F >-A< F > 

235 LET J-l 

240 NEXT F 

241 SCROLL 

242 SCROLL 
250 GOTO 103 

?«0 PEM calculating coeff 
310 FOR F-l TO I 
320 LET S<F>=<<C<F>-R<F>>*<C<F> 
-R(F)>) 

322 LET X-K+S< F > 

323 LET K*K+S< F > 

325 NEXT F 

330 LET E-INT <<C6*XV<1**3-I>> 

* 100 +. 5 > 

335 LET M-l-E^100 
340 GOSUB 500 
350 REM correlation 

355 PRINT 

357 PRINT "SPEARMANS RANK - ")M 

356 PRINT 

360 IF M-0 THEN PRINT "NO"; 

370 IF M-l OR M—1 THEN PRINT " 
PERFECT") 

390 IF <M<1 AND M>-.5> OR <M<-. 
5 AND M>—1> THEN PRINT "GOOD"« 
400 IF < M<. 5 AND M>0> OR <M>-.5 
AND M<0 > THEN PRINT "POOP": 

410 IF M>0 THEN PRINT " POSITIV 
E"; 

420 IF M<0 THEN PRINT 


CORRELATION' 


155 IF A*-"S" 
160 LET B-0 
165 NEXT F 


THEN LET RCF^-B+1 


430 PRINT 
440 STOP 

508 FOR F-l TO 21 
505 SCROLL 
507 NEXT F 

510 PRINT AT 0,7;"SPEARMANS PAN 

K" 

520 PRINT "(thirty two inverse 
SPACESs >*' 

530 PRINT "SET 1 * RANK 1 * SET 
2 * RANK 2 " 

535 FOR F-l TO I 
540 PRINT TAB 2;D(F>;TAB 11;C<F 
>; TAB 19; A( F ) : TAB 2B;R<F> 

545 NEXT F 

550 PRINT "(thirty one inverse 
SPACES >" 

560 RETURN 


SPEAR 

SUITS 

RAKE 


S PEARMAN’S coefficient of rank 
correlation is used to prove 
hypotheses of relationship 
between two sets of values. This pro¬ 
gram calculates Spearman’s Rank 
for up to 14 pairs of values; any more 
will run over the page on the final 
printout. 

The program was sent by Ian 
Holwill of Richmond. Surrey, who 
writes that he had trouble with the 
calculations, since the ZX-81 did not 
seem to store the numbers correctly. 
He overcame the problem by using 
the rounding technique in line 330, 
then dividing the result by 100 later 
in the listing. That gives a value to 
two decimal places. (16K ZX-81). 
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O UR TIRELESS quest for that 
arcade-quality Pacman con¬ 
tinues, this time led by 
Nicholas Lock of Faversham, Kent. 
In our last issue we showed S I 
Steam’s version, but pointed out that 
it lacked exits and power pills. The 
missing items are both supplied here 
but at the cost of a listing that needs 
only to be tied around a puppy’s 
middle to look like something out of 


an Andrex advertisement. Now the 
bad news. Pacman's jaws do not 
move. The maze is rather simple and 
the ghosts have no hunter-killer 
capability and can therefore be 
toyed with in a way which would 
amount to committing Atari-kiri on 
the arcade version. 

We seek him here, we seek him 
there—that cursed, elusive Pacman 
(16K Spectrum). 















































































10 LET fl#*» 11 RBCDEFGHIJKLMNOPQRS 
TUVWXZ" 

20 PRINT AT 11,5;"TYPE IN INDE 
X REQUIRED" 

30 INPUT N$ 

40 LET P*500 

50 FOR J»1 TO 26 

60 IF R*<J>U* THEN GOSUB P 

80 NEXT J 

90 STOP 


T HIS USEFUL routine for the 
unexpanded ZX-81 can be add¬ 
ed to a program which contains 
a list of names in alphabetical 
order. The list can start at line 500 
with a list of the As. then on to line 
850 for the Bs, and so on, adding 350 
to reach the start line of each letter. 

All the user has to do is enter the 
list index letter required and the 
program will print-out names or 
addresses starting with that letter. 
Indexer was sent by M A Wood of 
Garston, Liverpool. 




Y OUR COMPUTER club stand 
at local microfairs need no 
longer look grey and dull— 
because of Streamer. The program, 
which was sent by John Hague of 
Sheffield, will print any string of 
characters less than 32 characters 
long in large letters on the printer. 

The program uses three inverse 
spaces at line 160 (16K Spectrum). 


10 REM 
20 REM 
25 CLS 
30 REM Se t 

i;ftT 2 ' 7; " SPECT 

SSrI-'. 2; " enter your 

50 PRINT RT 7,1; 

CTERS RT ONE TIME" 

60 PRINT RT 9,3; 

ILL PRODUCE ft" 

70 PRINT RT 11,1; 

CM YOU CRN RDD TO. 


"SPECTRRL STREAMERS" 
£> JOHN HAGUE 1932 


up colours here for 


"THRN 32 CHRRR 
"THE PRINTER L» 


"5TRERMER UHX 


60 PRINT RT 13,4-; "PRESS ENTER 
TO CONTINUE" 

90 INPUT R$ 

100 CLS 

110 INPUT "ENTER WORDING";ft* 

120 PRINT RT 21,0;ft $ 

125 IF LEN ft$>32 THEN GO TO 110 
130 FOR C=0 TO (LEN R$*S + 1J 
14-0 FOR N =1 TO 2 
ISO FOR L =0 TO 7 

r 1 "MHM' ,P °i nT then lprin 

170 IF POINT f C, L.» =0 THEN LhRIN 

1S0 NEXT L 

193 NEXT N 

200 NEXT C 

210 PRINT RT 10,l;"Do you want 
any more? ty or INPUT R$; G 

O TO (R$ = "y * 100 + (R$ = "n "J *220+ f 
R$ < > "y * (R$ < > "n *210 

220 PRINT FLRSH 1; RT 12,14*; "BYE 
!": STOP 
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H IGHER-LOWER is an excel¬ 
lent gambling routine based 
loosely on the TV game hosted 
by Bruce Forsyth. It involves trying 
to guess if the next card in a series 
will be higher or lower than the pre¬ 
ceding one. In this version you need 
to have all five in correct order to 
win the round and the money. 

Aces are a sure winner, since they 
can count as high or low. Two cards 
the same are decided on suit, and if 
you win the odds are increased. Also 
included is a Gamble/Collect routine 
which will double the odds if you 
gamble successfully. 

The display shows the five cards, 
face down and up. with appropriate¬ 
ly garish flashing instructions. A 
fine program, well thought-out and 
presented, from Neil Streeter of 
Hastings, East Sussex. ( 16 K ZX- 81 ). 
Graphics: 

210 Four inverse Xs. 



5 GOSUB 9000 
10 DIM R$(8,5) 
20 DIM T * (11.. 5) 
30 LET 9$ Cl) ="■ 
35 LET R*C2)="fc 
4-0 LET P*(3)="f 
4.5 LET 9$ (4J = "| 
4-6 LET P*CS)="| 
50 LET 9* (0) = -I 

55 LET 9*(7)="l 

56 LET 9* CS) ="| 
60 LET T* Cl) = "1 
65 LET T*(2)="6 
70 LET T*(3)= ”7 
75 LET T* (4.) = "4. 
80 LET T* (5) ="4. 
85 LET T* (6) =”4. 


100 DIM C(5) 

105 LET ODDS=l 
110 DIM SC5) 

120 FOR X=1 TO 5 

130 LET C(X)=INT CRND*13+1) 

THEN GOTO < 130 C(X) ° ND * tY)=S 
170 NEXT Y 
160 NEXT X 

185 PRINT RT 5,9;"ODDS=";ODDS;" 
1" 

190 FOR X = 1 TO 5 
200 FOR Y = 1 TO 7 

^210 PRINT 9T 6+Y,CX-1)*6+1 ,"BOB 

220 NEXT Y 
230 NEXT X 
24-0 LET X = 1 
250 GOSUB 1000 
260 LET X=X+1 

270 PRINT 9T 16,8; "OlGMER LOU 
ER'?** 

280 PRINT 9T 16,8;"HIGHER BOU 
ER?** 

290 LET R=CODE INKEY $ 

300 IF 9 04.5 9ND 904.9 THEN GOT 
O 270 

310 PRINT 9T 16,8;" 

320 GOSUB 1000 
325 GOTO 2000 
330 IF X =5 THEN GOTO 3000 
335 GOTO 280 
1000 LET C=C(X) 

1010 LET S=S(X) 

1020 LET C*=C"R" 9ND C=1)+("T" 9 
C = 10> + (“U" RNO C = ll) +fO" 9ND 
C=12)+C“K“ 9ND C=13)+CSTR* C- 9N 
D C>1 9ND C <10) 

1025 IF C=1 THEN LET 0 = 14- 

1026 IF C>10 THEN LET C=1 

1027 IF C = 14- THEN LET C = ll 

1030 LET S*=C"H" 9ND S=1)+("C" 9 
ND S=2) ♦ I *'D" RNO S=3>♦("S" RNO S 
-4 ) 

104.0 PRINT RT 7, (X-l) *6 + 1; 


1|50 PRINT RT 8,(X-l)*6+1; 1" ;C* 
1060 FOR Y=1 TO 5 

1070 PRINT RT 8+Y,(X-l)*6+1;R$(U 
9L T*(C,Y)) 

1080 NEXT Y 

1090 FOR Y = 1 TO X-l 

1100 IF C(Y)=C(X) THEN LET ODDS= 

ODDS♦1 

1110 NEXT Y 

1120 PRINT RT 5, 14.; ODDS; “ : 1 

1130 RETURN 

2000 IF (C(X)=1 OR C (X-l) =1) 9ND 
CCXJoC(X-lJ THEN GOTO 330 
2005 IF 9=4-5 9ND C(X)>C(X-1) THE 
N GOTO 330 

2010 IF 9=4.9 9ND OCX) <C (X-l) THE 
N GOTO 330 

2015 IF CCX)OC(X-l) THEN GOTO 2 

04.0 

2020 15 9=4-5 AND S(X)>S(X-1) THE 
N GOTO 330 

2030 IF 9=4.9 9ND S(X)<S(X-1) THE 
N GOTO 330 

2040 PRINT RT 16,11 . m 

2050 LET STRKE=STRKE-BET *ODD5 
2060 PRINT 9T 3,13:STRKE.“ 

2070 IF STRKE=0 THEN PRINT 9T 16 
il;"YOU""VE LOST 9LL YOUR MONEY. 

2080 IF STRKE=0 THEN STOP 
2090 PRINT RT 18.7; “PRESS ""D"" 
TO DEAL." 

2100 IF INKEY$="D" THEN GOTO 212 
0 

2110 GOTO 2100 

2120 PRINT RT 16.11;" 

; 9T 16,7:" 

2150 GOTO 100 _ 

3000 PRINT 9T 16.11 

3010 PRINT 9T 18,8; "GAMBLE sKWWd 

3020 PRINT RT 18,8; COLLE 

CT" 

3030 LET 9 =CODE INKEY* 

304.0 IF 9 04-0 9ND 9 0 4-4. THEN GOT 
O 3010 

3050 PRINT RT 18,8," 

3060 IF 9=4.4. RND RND < . 5 THEN GOT 
O 2040 

3070 IF 9=4© THEN GOTO 3100 
3080 LET ODDS=ODDS*2 
3090 PRINT 9T 5,14;ODDS;" • 1 " 

3095 GOTO 3010 

3100 LET STRKE=STPKE+BET*ODDS 
3110 GOTO 2060 
9000 PRINT T96 9; 

9010 FOR X=0 TO 63 
9020 PLOT X,0 
9030 PLOT X.41 

9040 IF X<41 THEN PLOT 0,X 
9050 IF X < 41 THEN PLOT 63,X 
9060 NEXT X 
9070 LET STRKE=100 
9080 LET BET =5 

909© PRINT RT 3,3;"YOU HAVE *";S 
TPKE;9T 3,24;"*5 9 GO- 
9120 RETURN 
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E ducational games are 

always popular and useful 
routines for the Sinclair 
machines. Monster Maths is design¬ 
ed to test simple mathematical skills. 


The student is set 20 problems. Each 
incorrect answer extends a bridge 
towards a ravenous monster and 10 
errors will enable it to cross over and 
eat you. 


Lines can be changed to alter the 
range of numbers dealt with and the 
mathematical process required. Sub¬ 
mitted by Russell Newby, of Biggin 
Hill. Kent (1KZX-81). 


9 PRINT RT 9,5;"?<twelve SPRC 
ES.i9r3.Phic G,T,Y,T,Y>" 

1 ©'"PRINT RT 10,5; "< inverse- SPR 
CE; te-n SPRCEs;five 9r-aPhic Fs>" 
20 LET S«=0 
25-LET T=0 
30 FOR F-l TO 20 
35 PRINT RT 14,5;"<seventeen S 
PRCEs)" 

40-LET R*INT <RND#50H1© 

50 LET B*INT <RND*50>+10 
60-PRINT RT 14,5;R;"+";B;; 
70 INPUT N 

80 IF N»R+B THEN PRINT RT 14,1 
2;N;" CORRECT" 

85 IF N“R+B THEN LET T*T+1 


90 IF NOR+B THEN PRINT RT 14, 
12;" WRONG" 

100 IF NOR+B THEN LET S®S+1 
110 IF NOR+B THEN PRINT RT 10, 
5+S; "< 9rj.Phlc S>" 

120 IF S»10 THEN GOTO 200 
125 PAUSE 50 
130 NEXT F 

180 PRINT "SCORE ";T 
185 STOP 

200-FOR G=*12 TO 5 STEP -.5 
210 PRINT RT 9,G;"<9raPhics Q,T 
, Y, T, Y )" 

220 NEXT G 

230 PRINT "YOU ARE DEAD" 
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3 DIM N< 20) 

10 LET D-l 

20 FOR B-l TO D 

30 LET N( B >-1NT <RND*3> 

40 GOTO N< B )*50 
50 FOR B-l TO 200 
€0 SLOW 
70 FAST 
90 NEXT R 
90 GOTO 300 
100 FOR R-l TO 200 
110 SLOW 
113 FAST 
130 NEXT A 
140 GOTO 300 
150 FOR A-l TO 200 
160 SLOW 
170 FAST 
173 FAST 
180 NEXT A 
190 GOTO 300 
500 NEXT B 
310-FOR C-l TO D 
320 INPUT X 

530 IF XON(C> THEN GOTO 700 

540 NEXT C 

530 LET D-D+l 

360 GOTO 20 

700 PRINT "SCORE-"jD-1 

710 PRINT "CORRECT SEQUENCE-' 

720 FOR U-l TO D 

730 PRINT N<U 

740 NEXT U 


S IMON may be simple but this 
game for the unexpanded ZX-81 
is complex; you must increase 
the volume of your television set to 
hear the ZX-81 make its noises. Then 
you must guess, using keys 1 to 4 on 
the keyboard, the correct pitch and 
order of the notes played. 

You must enter key 1 for the high¬ 
est note and key 4 for the lowest. 
When you have guessed which 
notes have been played, the com¬ 
puter will continue to play the game 
until you have an incorrect note. 
When that happens you will be 
given your score and the proper 
sequence of the notes which you had 
incorrect. 


3 LET 2-0 
33 FOR M-l TO 20 

40 CLS 

41 LET E-INT <RND#30>+1 

44 PRINT AT 21,0;"30 INVERSE ! 
PACES" 

50 PRINT AT 20,E;"GRAPHIC 6" 
60 INPUT A 

70 PRINT AT 3,A;"INVERSE ." 

90 PRINT AT 19,A;"GRAPHICS G" 
105 IF A-E THEN GOTO 130 
107 PRINT AT 20,EiE 
110 PAUSE 100 
120 NEXT M 
123 GOTO 160 
130 LET Z-Z+l 
132 PRINT AT 20,E; 

140 PAUSE 100 
150 NEXT M 
160 CLS 

170 PRINT AT 11,0;"YOU HAVE KIl 
LED ";Zi” ALIENS" 

180-PRINT AT 12,0;20-2," ARE AL 
IVE ON THE GROUND" 

190 IF 2-20 THEN GOTO 210 
200 STOP 

210 PRINT AT 13,0;"YOU MAY NOW 


UDGMENT DAY has arrived for 
the fearless ZX-81 alien 


fire by entering a number from one 
to 30. corresponding to positions 
from left to right on the screen. 

When you have entered your 
guess, your spaceship will travel 
across the screen and drop its bomb. 
The number which appears in front 
of the alien after you have fired is the 
correct position of the target. 

The program was sent by Robert 
Courtney, of Isleworth, Middlesex. 


fighter on 
J planet Earth. As a member of the 
Space Cadet Corps you must stop the 
aliens from making a permanent 
base. 

The ground is shown at the bottom 
of the screen and the alien craft is 
shown as a bump above the land¬ 
scape. You have 20 shots in your can¬ 
non and each one must count. You 
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A RABBIT is in one of your 
fields eating your crops and 
you have to get rid of it by 
throwing objects at it. The game runs 
on the 16K Spectrum and uses user- 
defined graphics to create the field 
and our little furry friend. 

You throw an object at the rabbit 
by putting into the computer the co¬ 
ordinates of where you think it is on 
the screen. If you are correct and 
your object hits the rabbit it will run 
away but if you are incorrect your 
crops will continue to disappear. 

The user-defined graphics are set 
up using a subroutine at line 2000. 
The graphics characters used are: 
Lines 200,210 graphic A. 

Lines 320,535 graphic B. 

Line 430, graphic C. 

To set up the graphics, type RUN 
and then to run the game type RUN 
50. 

The program was sent by David 
Price, of Caerphilly. Glamorgan. 


10 cls go sub 2000 

50 POKE 23600,100 
10i3 CLS : PRINT RT 0,10, "CO ORDI 
.NOTES" 

110 PRINT INK 2;RT 5,0, "IN THIS 
GAME YOU ARE TRYING",AT 7,0; IN 
K 3 ;"TO HXT THE RABBIT EATING YO 
UR*'.: AT 9,0, INK 2; "TO CHASE HIM 

R 120 PAINT AT 12,0, INK l; "BY SE 
LECTING VERTICAL AND". AT 14,0, I 
NIK 1: "HORIlONTALCOORDINfiTES" 

130" PRINT INK 3, FLASH 1,AT 16, 
0, "UERTICAL FROM 1 TO 14";AT 18, 

0; INK 3; FLASH 1;"HORIZONTAL FR 
OH 1 TO 29 ** 

14-0 PRINT AT 20,4, INK 7, PAPER 
0, FLASH 1;"PRESS ANY KEY TO ST 

150 PAUSE 0 
160 CLS 

200 FOR 0=0 TO 15: PRINT AT 0,0 
. INK 4.; “A" : PRINT AT 0,30, INK 
4.. "A" : NEXT O 

210 FOR U = 1 TO 29: PRINT AT 0, ii 
; INK 4., "A"; AT 15,u; INK 4-; "A": 
NEXT U 

300 LET Z=TNT {RND#14J +1 
310 LET X=INT (RNDt29)+1 
32© PRINT AT Z,X; INK 1; "B" 

340 input "vertical (1-140"; A 
350 IF A < 1 OR A >14. THEN GO TO 3 
40 

360 PRINT RT^i7, lj "UERTXCfll- 

thI^g6 b to * 


420 PRINT AT 19 ,i;"HORIZONTAL " 

430 PRINT AT A,B, INK 2,"C" ._ _ 

300 LET U =(Z—A> #CZ-A) ♦(X-BJ *(X — 

°505 IF U=0 THEN GO TO 500 
510 IF UO0 THEN PRINT INK 1, F 
LASH 1;AT 20,14,"MISSED": BEEP 0 
.2,12- BEEP 0-2-6. 

mi let N Lint"VrND*14) +1 
332 LET X = INT (RND*29) +1 
S3S PRINT AT Z,X;"B" 

350 GO TO 340 

600 PRINT AT 20,14," 

AT 19,0, " 

601 PRINT AT 17,0; INK 7, PAPER 
1; BRIGHT l;"YOU GOT ME IN ";C, 

" GOES". FOR F=5© TO 1 STEP -1: 
3EEP 0.02,F: NEXT F 
siepRiNT^^^e, 

630 LET S * = INKEY $ 

635 IF INKEY $ = “" THEN GO TO 630 
640 IF INKEY*<>"Y" THEN GO TO 1 
300 

650 GO TO 160 
1000 STOP 

2030 FOR N=0 TO 7: READ A: POKE 
USR "A"+N,A: NEXT N 

2001 FOR N=0 TO 7: READ A: POKE 
USR "B”+N,A. NEXT N 

2302 FOR N=3 TO 7: READ A: POKE 
USR "C"+N,A: NEXT N: RETURN 
3010 DATA 24,124,90,153,60,90,IS 

|020 q DATA 64,64,224,191,255,36,3 
26s© DATA 0,0,50,60,60,0,0 
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P R SCOTT of Goldalming, Sur¬ 
rey, has sent the kind of pro¬ 
gram Mr Spock plays on long, 
winter evenings. 3D Noughts and 
Crosses displays a cube and 27 
possible positions for the Xs and Os. 
Unlike the 2D version, the game 
must be continued until all the posi¬ 
tions are filled, the object being not 
to obtain the first completed row but 
as many as possible. 

The player who starts has an 
advantage, as finally he occupies one 
space more than his opponent and 
so, to level matters, the first player is 
prevented from occupying the 
centre square on his first attempt. 

The program checks for that and 
other illegal moves, as well as set¬ 
ting-up the board, indicating whose 
turn is next, and giving the correct 
score throughout. Moves are entered 
by keying-in a letter, then a number, 
then NEWLINE. “A" indicates the 
front face of the cube. "B” the centre 
and “C" the rear. Entering "R" will 
restart the game (16K ZX-81). 


NOUGHTS. 

CROSSES 



5 DIM AC 27) 

10 DIM C< 18 ) 

15 DIM R< 18) 

20 DIM X<27> 

25 DIM Y<27 ) 

30 LET X*»»" 0208140208140208140 
61218061218061218101622101622101 
622" 

35 LET Y*-"0606061212121818180 
40404101010161616020202080808141 
414" 

40 FOR 2*1 TO 27 
45 LET XCZ>-VRL X*<2#Z~1 TO 2* 
Z) 

50 LET Y< 2 )-VRL Y*<2#Z-1 TO 2# 
Z) 

55 NEXT Z 

60 LET "0204050505050608101 

11111111213131313" 

65 LET "0103010203040301090 

10809100903060912" 

70 FOR Z-i TO 18 
75 LET CCZ>-VflL C*<2*Z-1 TO 2% 
Z) 


80 LET R<Z>-VflL R*C2*2-1 TO 2* 
Z> 

90 NEXT Z 
100 FOR Z-l TO 27 
105 LET flCZ>«0 
110 NEXT Z 
115 LET 8-1 
120 LET N-l 
170 CLS 

175 GOSUB 1000 

180 IF S-l THEN PRINT AT 2,0;"" 
"X"" TO GO" 

185 IF S—1 THEN PRINT RT 2,0;" 
""0"" TO GO" 

190 PRINT RT 20,14;" 

200 INPUT Z$ 

205 IF N-28 THEN GOTO 100 
210 IF Z*Ci>"R" THEN GOTO 100 
215 IF Z#<1THEN LET Z«0 
220 IF Z*<n-"B" THEN LET Z-9 
225 IF Z*C1>"C" THEN LET 2-18 
235 LET Z-Z+VRL Z*<2> 

240 IF R< Z X>0 THEN GOTO 390 
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245 IF N-l FIND 2-14 THEN GOTO 3 
90 

250 LET ACZ>-S 
255 LET N-N+l 

260 IF S-l THEN PRINT RT YCZ),X 
<Z );"<inverse XV 
265 IF S--1 THEN PRINT RT Y<Z>, 
X< Z >;"< inverse OV 
270 GOSUB 500 
275 LET S—S 
280 GOTO 180 

390 PRINT RT 20,14;"ILLEGAL;TRY 
AGAIN" 

395 GOTO 200 
500 FAST 
505 LET SX*0 
510 LET 30-0 
515 FOR 2-1 TO 13 
520 LET UI-AC 14-Z )+R< 14 )+R< 14+Z ) 
525 IF ABS W-3 THEN GOSUB 800 
530 NEXT Z 
535 FOR 2-1 TO 18 
540 LET W«A<C<Z>-R<Z)>+A<C<2>>+ 
A< C< Z >+R< 2 ) > 

545 IF ABS W-3 THEN GOSUB 800 
550 LET V-28-CX Z > 

555 LET W-fl<V-R<Z>HA<V>+A<V+R< 
Z>> 

560 IF ABS W-3 THEN GOSUB 800 
565 NEXT Z 

570 PRINT AT 20,0;"<inverse X>» 
";SXj",< 1 nverae 0)« ".iSO 
575 SLOW 
580 RETURN 

800 IF W-3 THEN LET SX-SX+1 
803 IF W—3 THEN LET 80-80+1 
810 RETURN 

1000 PRINT AT 0,6j"3D NOUGHTS AN 
D CROSSES" 

1004-PRINT AT 2,10;"l;<five 9raP 
hie 7s >; 2; (five 9raPhic 7s >; 3" 
1006 PRINT AT 3,7; "<graphic 6; in 
verse SPACE;graphic 7>;/;<ei9ht 
SPACE*.; 9raPhic 6; irivers® SPACE; 9 
raPhic 7;graphic 8 >" 

1008 PRINT AT 4,6;"1;<three SPRC 
Es >;/;SPACE;2;< five SPACE*);3;< t 
hree SPACE*.; graphic 3 V 


1010 PRINT RT 5,3;"(graphic 6;in 
verse SPACE;graphic 7;four SPACE 
s);/;(four SPACE*;9raPhie 6;inve 
rse SPACE; 9ra.Phic 7; four SPACEs; 
graphic 8 V 

1012 PRINT AT 6,2;"1;<five 9raPh 
ic7s y ;3;<seven SPACEs;9raPhie 3 > 

1014 PRINT AT 7,2;"<9raPhic 5;se 
ven SPACEs >;/;three SPACEs;9raPh 
i c 8; seven SPACEs; 9ra.p hie 8 ) " 
1016-PRINT AT 8,2;"<graphic 5;se 
ven SPACEs >; 4; <three SPACEs;9raP 
hie 8 >;SPACE;3;< five SPACEs>;6" 
1018 PRINT RT 9,2;"<graphic 5;se 
ven SPACEs );/;<three SPACEs;9raP 
hie 8;seven SPACEs;graphic ©>" 
1020 PRINT AT 10,2;"<graphic 3;t 
hree SPACEs >;4;<three SPACEs >;/; 
SPACE;5;SPACE;<9raPhie 8;three S 
PACEs >;6;<three SPACEs;9raPhic 8 
V 

1022 PRINT AT 11,2;"<graphic 5;s 
even SPACEs >;✓;<three SPACEs;9ra 
P hic 8;seven SPACEs;9r aP hie 8>" 
1024 PRINT AT 12,2;"4;<five SPAC 
Es );5;SPACE;/;<three SPACEs >;6;< 
seven SPACEs;9raPhie 8 >" 

1026 PRINT AT 13,2;"<graphic 5;s 
even SPACEs >.«/; < three SPACEs; 9ra 
Phic 8;seven SPACEs;9raPhie 8 V 
1028-PRINT AT 14,2;"<graphic 5;s 
even SPACEs >;7;< three /& ;9raPhie 
8 >;/;©;< five /s>;9" 

1030 PRINT AT 15,2;"< graphic 3;f 
our SPACEs; three .-"s;f'our SPACEs; 
graphic 8;four SPACEs;graPhie 6; 
i 'Averse SPACE; 9r aPhi c 7 > " 

1032 PRINT AT 16,2;"<graphic 5;t 
hree SPACEs );7;<five SPACEs>;8;S 
PACE; < 9raP h i c 8; three SPACEs '•; 9 " 
1034 PRINT AT 17,2;"<graphic 3;t 
hree /s;eight SPACEs;graphic 8 ;9 
raPhic 6;inverse SPACE;9raPhie 7 
>" 

1036 PRINT AT 18,2;"7;five 9raPh 
ic 6s >;8;< five 9raP hie 6s ); 9 " 
1090 RETURN 
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Linsac's ZX Companion series has received excellent press 

reviews: 

i Vi 

>.95 "Far and away the best" — Your Computer 

Thoughtfully written, detailed and illustrated with 
meaningful programs ... outstandingly useful" — EZUG 

The Spectrum Games Companion' is the latest addition 
to the series and is aimed at the games player and 
programmer alike. Twenty-one games designed specifically 
for the ZX Spectrum are included, with clear instructions on 
entry and play. Each program is explained fully with 
complete details on how it is designed and written. 
Introductory chapters show how to set up and use the 
Spectrum and how to create your own games. Later 
sections cover number games, word games, board games, 
simulation games, dice games, card games and grid games. 
If you want to enjoy your ZX Spectrum and learn its secrets 
at the same time then this is the book for you! 

Bob Maunder is co-author of The ZX80 Companion' and author of 
The ZX81 Companion'. He is a Senior Lecturer in Computer 
Science at Teesside Polytechnic, holds an MSc degree in Computer 
Science, and is a Member of the British Computer Society. 

The Spectrum Games Companion is available from good 
book shops, or send £5.95 to: 

LIIMSAC,( ) 68 Barker Road, Middlesbrough, 
Cleveland TS5 5ES 

Postage is free within the U.K. — add £1 for Europe or £2.50 
outside Europe. 


ISBN 0 907211 02 X 


BOMBING MISSION 


10 LET A-SGN PI 
20 L?T S-A-A 

30 LET G-CODE "GRAPHIC S" 

40 LET F-INT <RND*(G+G>HCODE 

"£" 

30 LET Z-A-A 
60 LET X-A 

70 PRINT AT G.A-Aj"TYT6- 6/ TT 
TTTTTTTTTTTTTTTTTTT " 

80 PRINT AT G,FjCHR* G 
90 PAUSE <G*G> 

100 FOR B-A-A TO CODE "O'’ 

120 PRINT AT AiB;CHR* <A-A);"T6 
T8 T" 

130 IF INKEY*-"6" THEN LET Z-A 
140 IF Z-A THEN LET X-X+A 
_130 IF Z-A THEN PRINT AT X.B+Aj 

160 IF X-G THEN LET Z-A-A 
170 IF X-G AND B+A-F THEN GOTO 
CODE "ABS" 

180 NEXT B 
190-LET S-S+A 
200 GOTO CODE "U" 

210 PRINT AT G-A,F-<A-A "YBOOM 
T";AT G-CA+A),F-A;"Y8 T"jTAB G;S 
J" B0MB"+<"S" AND S>A> 



Y OU SIT tensely in the seat of 
your cockpit, staring anxiously 
through your viewfinder at 
the ground. Your mission is to find 
and destroy the enemy munitions 
dump as quickly as possible. Your 
finger stabs at the key with the 
downward arrow marked on it and 
the bomb is released. The game runs 
on the IK ZX-81: as the aircraft 
crosses the sky you must release 
your bomb using the 6 key to bomb 
the target on the ground marked 
with a graphic A. The target will 
appear randomly on each run. 
Graphics notes: 

Line 30, graphics. 

Line 70. graphics T, Y, T, 6, 2 *—’, 
inverse space, graphic 6, /, space, 21 
graphic Ts, inverse space. 

Line 120, graphic T. 6, T, 8, space, 
graphic T. 

Line 210 graphics graphics Y. 8, 
space, graphic T. 
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Sindair ZX Spectr 


16Kor48K RAM... 
full-size moving- 
key keyboard... 
colour and sound, 
high-resolution 
graphics... 

From only 


First, there was the world-beating 
SinclairZX80. The first personal computer 
for under £100. 

Then, the ZX81. With up to 16K RAM 
available, and the ZX Printer. Giving more 
power and more flexibility. Together, 
they’ve sold over 500,000 so far, to make 
Sinclair world leaders in personal 
computing. And the ZX81 remains the 
ideal low-cost introduction to computing. 

Now there’s the ZX Spectrum! With 
up to 48K of RAM. A full-size moving-key 
keyboard. Vivid colour and sound. High- 
resolution graphics. And a low price that’s 
unrivalled. 

Professional power- 
personal computer price! 

The ZX Spectrum incorporates all 
the proven features of the ZX81. But its 
new 16K BASIC ROM dramatically 
increases your computing power. 

You have access to a range of 8 
colours for foreground, background and 
border, together with a sound generator 
and high-resolution graphics. 

You have the facility to support 
separate data files. 

You have a choice of storage capa¬ 
cities (governed by the amount of RAM). 

16K of RAM (which you can uprate later 
to 48K of RAM) or a massive 48K of RAM. 

Yet the price of the Spectrum 16K 
is an amazing £125! Even the popular 
48K version costs only £175! 

You may decide to begin with the 
16K version. If so, you can still return it later 
for an upgrade. The cost? Around £60. 


Ready to use today, 
easy to expand tomorrow 

Your ZX Spectrum comes with a mains 
adaptor and all the necessary leads to 
connect to most cassette recorders 
and TVs (colour or black and white). 

Employing Sinclair BASIC (now used 
in over 500,000 computers worldwide) 
the ZX Spectrum comes complete with 
two manuals which together represent a 
detailed course in BASIC programming. 
Whether you’re a beginner or a competent 
programmer, you’ll find them both of im¬ 
mense help. Depending on your computer 
experience, you’ll quickly be moving 
into the colourful world of ZX Spectrum 
professional-level computing. 

There’s no need to stop there. The 
ZX Printer-available now- is fully 
compatible with the ZX Spectrum. And 
later this year there will be Microdrives for 
massive amounts of extra on-line storage, 
plus an RS232/network interface board. 


Key features of the 
Sinclair ZX Spectrum 

• Full colour-8 colours each for 
foreground, background and border, 
plus flashing and brightness-intensity 
control. 

• Sound - BEEP command with variable 
pitch and duration. 

• Massive RAM -16K or 48K. 

• Full-size moving-key keyboard - all 
keys at normal typewriter pitch, with 
repeat facility on each key. 

• High-resolution - 256 dots 
horizontally x 192 vertically, each 
individually addressable for true high- 
resolution graphics. 

• ASCII character set-with upper- and 
lower-case characters. 

• Teletext-compatible - user software 
can generate 40 characters per line 
or other settings. 

• High speed LOAD & SAVE-16K in 100 
seconds via cassette, with VERIFY & 
MERGE for programs and separate 
data files. 

• Sinclair 16K extended BASIC - 
incorporating unique ’one-touch’ 
keyword entry, syntax check, and 
report codes. 
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The ZX Printer- 
available now 

Designed exclusively for use with the 
Sinclair ZX range of computers, the 
printer offers ZX Spectrum owners the full 
ASCII character set-including lower-case 
characters and high-resolution graphics. 

A special feature is COPY which 
prints out exactly what is on the whole TV 
screen without the need for further 
instructions. Printing speed is 50 charac¬ 
ters per second, with 32 characters 
per line and 9 lines per vertical inch. 

The ZX Printer connects to the rear of 
your ZX Spectrum. A roll of paper (65ft 
long and 4in wide) is supplied, along with 
full instructions. Further supplies of paper 
are available in packs of five rolls. 


The ZX Microdrive- 
coming soon 

The new Microdrives, designed 
especially for the ZX Spectrum, are set to 
change the face of personal computing. 

Each Microdrive is capable of holding 
up to 100K bytes using a single inter¬ 
changeable microfloppy. 

The transfer rate is 16K bytes per 
second, with average access time of 3.5 
seconds. And you'll be able to connect up 
to 8 ZX Microdrives to your ZX Spectrum. 

All the BASIC commands required for 
the Microdrives are included on the 
Spectrum. 

A remarkable breakthrough at a 
remarkable price. The Microdrives are 
available later this year, for around £50. 


How to order your ZX Spectrum 

BY PHONE-Access, Barclaycard or Barclaycard orTrustcard. 

Trustcard holders can call 01-200 0200for EITHER WAY- please allow up to 28 

personal attention 24 hours a day, every days for delivery. And there’s a 14-day 
day. BY FREEPOST-use the no-stamp money-back option, of course. We want 

needed coupon below. You can pay by you to be satisfied beyond doubt - and we 
cheque, postal order, Access, have no doubt that you will be. 


To: Sinclair Research, FREEPOST, Camberley, Surrey, GUI5 3BR. Order 


Qty Item 

Code 

Item Price 

Total 



£ 

£ 

Sinclair ZX Spectrum -16K RAM version 

100 

125.00 


Sinclair ZX Spectrum -48K RAM version 

101 

175.00 


Sinclair ZX Printer 

27 

59.95 


Printer paper (pack of 5 rolls) 

16 

11.95 


Postage and packing: orders under £100 

28 

2.95 


orders over £100 

29 

4.95 



Total £ 

Please tick if you require a VAT receipt □ 

*1 enclose a cheque/postal order payable to Sinclair Research Ltd for £ 
•Please charge to my Access/Barclaycard/Trustcard account no. 
•Please delete/complete 
as applicable 

[Signature 
PLEASE PRINT 


1 Name: Mr/Mrs/Miss | 

1 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 1 1 

| {Address 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 1 1 

1 M 1 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 

1 1 1 1 1 I 1 1 1 1 


i 

| FREEPOST-no stamp needed. 

Prices apply to UK only. 

-—-— | 

Export prices on application. | 


SINCLAIR PROGRAMS January/February 1983 


ZX Spectrum software on 
cassettes-available now 

The first 21 software cassettes are 
now available directly from Sinclair. 
Produced by ICL and Psion, subjects 
include games, education, and business/ 
household management. Galactic 
Invasion... Flight Simulation... Chess... 
History... Inventions... VU-CALC... VU-3D 
.47 programs in all. There's something 
for everyone, and they all make full use 
of the Spectrum’s colour, sound and 
graphics capabilities. You’ll receive a 
detailed catalogue with your Spectrum. 

RS232/network 
interface board 

This interface, available later this 
year, will enable you to connect your 
ZX Spectrum to a whole host of printers, 
terminals and other computers. 

The potential is enormous. And the 
astonishingly low price of only £20 is 
possible only because the operating 
systems are already designed into the 
ROM. 


Sinclair Research Ltd, Stanhope Road, 
Camberley, Surrey GUI 5 3PS. 

Tel: Camberley (0276) 685311. 














Something old, something new 

the first 



annual 


The complete guide 
to the last year 
of Sinclair computers 

The world of Sinclair computers is fast-moving, with 
new developments almost daily. During the months 
since its launch in April, Sinclair User has attempted 
to keep you up-to-date with all that has been 
happening. 

Now, however, we feel it is time to take stock of 
what has been happening during those months. So 
we have decided to publish The First Sinclair User 
Annual. 

We have asked all our top writers to give their 
impressions of the last 12 months and chosen the 
best articles and programs from past issues. 

It will allow you to keep abreast of some of the 
things you may have missed and to assimilate the 
changes which have overtaken all of us so quickly. 

The First Sinclair User Annual will be available 
from all the usual newsagents, price £1.50, from the 
beginning of December. 

Order your copy now to avoid being disappointed. 





We’ve got big ideas about 

you and your 
Sinclair 


Because we know you’re always looking for 
new ideas to make the most of your Sinclair 
computer, we’re making sureyou never run out 
of steam! 


Just announced - and due out in December-is 
Sinclair Projects magazine, full of fascinating 
schemes to tax your skills and reveal the practical 
potential of your Sinclair in applications like con¬ 
trolling lights, upgrading computer graphics, house¬ 
hold security, and many more. 


Whether you’re new to computing, or an old hand, you’re 
certain to be an enthusiast. That’s why we introduced 
Sinclair User magazine for the latest news, techniques 
and enhancements tomatchyourenthusiasm(now with new 
‘Spectrum User’ supplement!)Next, its companion magazine, 
Sinclair Programs, became an overnight success with 40 
NEW programs, ready for you to key, in every issue. 


Now the exciting new Sinclair Projects completes your store of 
possibilities with a huge increase in computing potential for you 
to explore. 


We know you’ve got big ideas about your Sinclair. Make sure you 
live up to them with threefold computing pleasure. Fill out the 
order form now and we’ll send you the first ideas-packed Sinclair 
Projects - hot off the press. 


Mail to: ECC Publications Limited; 30-31 Islington Green, 
London N1 8BJ 


Sinclair Projects is published on alternate months to Sinclair 
Programs, so there’s always something new to test your skill. But 
here’s the best news: when you 
subscribe to all three Sinclair 
magazines, you get the first 
three issues of new Sin¬ 
clair Projects absolutely 
free! 


Sinclair User/Spectrum User; Sinclair Programs; Sinclair Projects 

Yes - I’d like to subscribe to: 

Sinclair User (12 issues - price £9.00) including special ‘Spectrum User’ supplement in each issue. 
Sinclair Programs (6 issues - price £6.60) 

Sinclair Projects (6 issues - price £6.60) Remember you get the first three issues FREE if subscribing to all 
three magazines! 

□ I enclosea cheque for£ _(deduct£3.30 from total cost if subscribing toall three 

publications) 

Please charge my credit card Card name_Number_ 

Name_ 

Address_ 


Signature ____Date 

NB This offer applies to <JK subscribers only. Overseas rales available on request. 




SPECTRUM COMES TO LIFE ! 

ABBEX 


THE GAMES PEOPLE 


SPOOKYMAN 



EAT THE PILLS AND KEEP AWAY FROM 
THE GHOSTS. EAT THE VITAMINS AND 
CHASE THE GHOSTS. FULL MACHINE 
CODE ARCADE ACTION AND SOUND. 
DESIGNED TO MAKE YOUR ADRENALINE 
RUN HIGH. PRICE £4.95 


COSMOS 



YOU HAVE THE JOB OF PROTECTING A 
CONVOY FROM ALIENS AND METEOR 
STORMS. WATCH OUT FOR THE SPACE 
MINES AS YOU PLAY THIS AMAZING 
MACHINE CODE ARCADE ACTION 
SIMULATION PROGRAM. PRICE £4.95 


WRITE OR PHONE FOR LIST OF GAMES FOR 
OTHER COMPUTERS OR JUST MORE GAMES 


ABBEX ELECTRONICS LTD 


20 ASHLEY COURT. GREAT NORTHWAY. LONDON NW5 
Tel: 01-203 1465 


Please send me the following 

(Allow 14 days for delivery) 


PLEASE COMPLETE IN BLOCK CAPS 
NAME (Mr Mrs'Miss) 

ADDRESS . 

(CARD HOLDERS) . 

POST CODE PHONE NO 

Make cheques payaOle to ABBEX 
l enclose my cheque (or C 




Signed 

date 


POST BY DEC 81h and receive your order in time for 
Christmas 

□ SPOOKYMAN 

PRICE £4.95 


□ COSMOS 

PRICE £4.95 


J 














